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PRODUCT CODE 
PRODUCT NAME 
PROGRAM DATE 
MAINTAINER: 


AC-8502F-MC 

C7DJAF 0 DJ1 1 LGC TEST 

FEB 1979 

DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMI TNENT 
BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED LNDER A 
LICENSE AND MAY ONt Y BE USED OR COPIED IN ACCORDANCE WITH 
THE TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1972. 19?9 BY DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 

tu j c PROGRAM TESTS THE LOGIC OF THE DJll ASYNCRONOUS 
Mill TIPLEXER IN MAINTENANCE MODE. IT CHECKS THAT ALL THE 
CONTROL REGISTERS FUNCTION PROPERLY. THAT INTERRUPTS OCCURE 
A t THE RIGHT LEVEL, AND THAT DATA CAN BE TRANSMITTED AND 
RECEIVED CORRECTLY. THIS PROGRAM DOES NOT T P ST THAT THE 
INPUT AND OUTPUT LEAD CONNECTIONS ARE n Fu ^ l [j 0N ^;: . 
MAINDEC-1 1-DZDJB, PROGRAMS 2 AND 3 FOR CIN-l I NE TESTING) . 
THE PROGRAM SHOU' D BE RUN FOR AT LEAST l PASSES WITH ALl 
SWITCHES DOWN. 

NOTE: THE PROGRAM WILL AUTOSIZE THE SILO ALARM lEVEL OF THE 
DJll AND WILL RUN AT ANY ALARM LEVEL SET. AND WILL RLW AT 
ANY ALARM LEVEL SET. 


REQUIREMENTS 


EQUIPMENT 

PDP-11 STANDARD COMPUTER WITH CONSOLE TELE T YPE 
UP TO 16 DJll ASYNCRONOUS MULTIPLEXERS. 


STORAGE 

THIS PROGRAM USES ALL OF 8K. EXCEPT ABS LOADER. 


PRELIMINARY PROGRAM* 


LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR A£>S TAPES. 

STARTING PROCEDURE 

CONTROL SWITCH SETTINGS 

SEE 5.1 (ALL DOWN FOR WORST CASE TESTING) 


STARTING ADDRESS 

THE PROGRAM SHOULD ALWAYS BE STARTED AT 200. IT MA* BE 
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PROGRAM AND OPERATOR ACTION 

1) LOAD PROGRAM INTO MEMORY USING ASS LOADER. 

2) l OAD ADDRESS 200. 

3) IF HARDWARE SWITCH REGISTER IS AVAILABLE, SET SWITCHES 
(SEE SEC. 5.1). ALL DOWN FOR WORST CASE. PRESS START. 

4) IF SWITCH-LESS PROCESSOR SIMPLY PRESS START. 

5) ENTER PARAMETERS (SEE SEC. 5.3) AS THEY ARE REQUESTED. 

6) THE PROGRAM WILL LOOP AND BELL WILL RING ONCE EVERY PASS. 
EOP" IS ALSO PRINTED ON EACH PASS. 

7) A MINIMUM OF TWO PASSES SHOULD ALWAYS BE RUV. 


OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS 

AT SA 200. ALL SWITCHES DOWN IS WORST CASE TESTING. EACH 
SLBTEST WILL BE LOOPED UPON UNTIL COMPLETION OF 16 PASSES OF 
THAT SLBTEST . THE BELL WILL RING UPON COMPLETION OF A PASS 
OF THE ENTIRE PROGRAM. 

THE SWITCH SETTINGS ARE: 

SW<15> =1 HALT ON ERROR 

SW<14> = 1 SCOPE LOOP 

SW<13> = 1 HJHI8IT PRINTOUT 

SW<12> =1 PRINT SILO ALARM LEVEL (IN OCTAL) 

SW<11> = 1 INHIBIT ITERATIONS OF SUBTEST 

SW<10> = 1 BELL ON ERROR 

0 BELL ON PASS COMPLETE 

SW<09> - 1 LOOP ON ERROR 

$W<08> = 1 LOOP ON TEST IN SW<7:0> 

THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR 
WITHOUT A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE 
PROGRAM TESTS THE EXISTENCE OF A HARDWARE SWITCH REGISTER. 
IF NOT FCRBD A SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 
176) IS DEFAULTED TO. IF THIS IS THE CASE. UPON EXECUTION 
THE CONTENTS OF THE SWREG ARE DUMPED IN OCTAL ON THE CONSOLE 
TTY AND ANY CHANGES ARE REQUESTED 

(I.E.) SWR=XXXXXX NEW= 

POSSIBLE RESPONSES ARE: 


1 . <CR> 

2. 6 DIGITS 0-7 


IF NO CHANGES ARE TO BE MADE. 

TO REPRESENT IN OCTAL THE NEW SWITCH 
REGISTER VALUE; LAST DIGIT FOLLOWED BY 
<CR>. 

TO ALLOW REENTERING VALUE IF ERROR IS 
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SEQ 00 07 


BUILT INTO THE PROGRAM IS THE ABILITY ’0 DYNAMICALLY CHANGE 
THE CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING 
*G (CNTl G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG 
TO CHANGE THE CONTENTS OF SWREG. WHICH IS PROCESSED IN KEY 
AREAS OF THE PROGRAM CODE (IE) ERROR ROUTINES, AFTER HALTS 
END OF PASS, AND OTHER APPLICABLE AREAS. 


SUBROUTINE ABSTRACTS 


5.2.1 SCOPE 

THIS SUBROUTINE CAl L (VIA A TRAP INSTRUCTION) IS PLACED 
BETWEEN EACH SUBTEST IN THE INSTRUCTION SECTION. IT RECORDS 
THE STARTING ADDRESS OF EACH SUBTEST AS IT IS BEING ENTERED 
IN LOCATION "LAD". IF A SCOPE LOOP IS REQUESTED, THE 
CURRENT SLBTEST WILL BE LOOPED UPON. SW<11> ON A 1 INHIBITS 
ITERATION OF SUBTESTS. THE CONTENTS OF "LAD" MAY BE USED TO 
DETERMINE T HE LAST SUBTEST SUCCESSFULLY COMPLETED. 


5.2.2 


THIS ROUTINE (CALLED BY AN EMT INSTRUCTION) PRINTS OUT AN 
ERROR MESSAGE (SEE 6.1). IF SW<9> IS ON A 1 AND A HLT IS 
EXECUTED, THE SUBTEST WILL BE LOOPED UPON LNTIL 16 
CONSECUTIVE GOOD PASSES ARE COMPLETED. TO INHIBIT TYPEOUTS. 
PUT SW<13> ON A 1. TO RING THE BELL ON AN ERROR, PUT SU<10> 
ON A 1. 

5.2.4 ALMCK 

IN THE NORMAL OPERATION THE ’DONE" BiT IS SET AS EACH 
CHARACTER IS READ INTO THE F I /FO BUFFER (SILO). BUT THIS 
"DONE" CONDITION CAN BE DELAYED TO CAUSE DONE ON THE 5. 9. 

OR 17 CHARACTER. THIS IS DONE BY CUTTING ONE & J* 
(WT,W2,W3) ON THE M7285 CONTROL BOARD. THE PROGRAM TESTS 

FOR THIS "SILO ALARM LEVEL" AND IF SW12 IS SET H) IT WIU 

PRINT OUT THE LEVEL AT WHICH EACH DJll WILL SET DONE. THE 
SUBROUTINE ALSO ADJUSTS THE CHARACTER COUNTERS TO ENSlfTE 
THAT THE MAXIMUM NUMBER OF CHARACTERS TO BE JRANSFERED IS A 
MULTIPLE OF THE SILO ALARM LEVEL. THIS ENSILES THAT ALL 
DATA WILL BE READ OUT OF THE SILO. DONE WILL NOT SET IF THE 
NUMBER OF CHARACTERS IN THE p l /F 0 f^FFER IS LESS THAN THE 
SILO ALARM LEVEL. (NOTE CHARACTER PRESENT IS SET ON EA^M 
CHARACTER IN THE BUFFER. REGARDLESS OF THE SILO AlARM 
LEVEL.) 


5.2.5 


TRAPCATCHER 


SF 0 0008 
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DESCRIPTION 


256 





25? 



ANY UNEXPECTED TRAPS AND A ".*2" - "IOT" SEOUENCE IS 


258 




259 



REPEATED FROM 60 - 77 6 TO DETECT ANY UNEXPECTED INTERRUPTS. 


260 



THUS ANY UNEXPECTED TRAPS WILL HALT AT THE VECTOR * 2. ANY 


261 



UNEXPECTED INTERRUPTS WILL RESULT IN AN ERROR ' WL T" IN 
"10 TRAP”. 


262 




263 





264 





265 


5.3 

PROGRAM AND OPERATOR ACTION 


266 





267 



THE FOLLOWING REQUESTS ARE MADE TO THE OPERATOR AT THE 


268 



BEGINNING OF THE PROGRAM. A DETAILED DESCRIPTION OF WHAT IS 


269 



REQUIRED FOR EACH PARAMETER IS GIVEN BELLOW. 


270 





271 



1) "FIRST DJ1 1 ADDRESS: " 


272 



THE CSR ADDRESS OF THE FIRST DJI 1 YOU WISH TO 


273 



TEST. MUST BE BETWEEN 160000(8) AND 177777(8). 


274 



THE DEFAULT (CARRIAGE RETURN) IS TO 160010(8). 

* PREVIOUS)" SELECTS THE ADDRESS PREVIOUSLY 


275 




276 



SELECTED. 


277 



2) 'VECTOR ADDRESS: " 


278 



THE RECEIVER INTERRUPT VECTOR ADDRESS OF THE FIRST 


279 



DJI 1 YOU WISH TO TEST. MUST BE BETWEEN 300(8) AND 


280 



1000(8). THE DEFAULT (CARRIAGE RETURN) IS TO 
300(8). "P(REViOUS)" SELECTS THE ADDRESS 


S 281 




282 



PREVIOUSLY SELECTED. 

3) 'MO. OF DJII’S: " 


283 




284 



THE NUMBER OF DJ11 UNITS YOU WISH TO TEST AT ONE 


28S 



TIME. MUST BE BETWEEN 1 AND 16. THE DEFAULT 


286 



(CARRIAGE RETURN) IS TO 1 . *P(REVIOUS'" SELECTS 


287 



THE NUMBER OF LNITS PREVIOUSLY SELECTED. 

4) "STANDARD CONFIGURATION? " 

' VIES)" OR DEFAULT (CARRIAGE RETURN) SELECTS 8 

LEVEL CODE, NO PARITY. 'VO)" CAUSES REQUESTS FOR 


288 




289 




290 




29 1 



CODE LEVEL AND PARITY ON ALL REQUESTED LINES IN 

GROUPS OF FOUR. 1 PREVIOUS)" SELECTS THE CODE 


292 




293 



LEVELS AND PARITIES PRtVIOUSLY SELECTED. 

5) "CHAR LENGTH: " 


294 




295 



THE CODE LEVEL FOR THE LINE GROUP S°€CIF IED. MUST 


296 



BE 5. 6. 7. OR 8. THE DEFAULT (CARR ’AGE RETURN) 


297 



’S TO 8 LEVEL CODE. 


298 



6) 'PARITY (NO. ODD. EVEN): " 


299 



THE TYPE OF PARITY SELECTED FOR T HE LINE GROUP 


300 



SPECIFIED. THE DEFAULT (CARRIAGE RETURN) IS TO NO 


301 



PARITY. 


302 





303 





304 


6. 

ERRORS 


505 





306 





507 


6.1 

ERROR PRINTOUT 


308 





309 



THE FORMAT IS AS FOLLOWS: 
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312 

313 

314 

315 
516 

317 

318 

319 

320 
12 “ 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 
35 i 

352 

353 

354 

355 

356 
757 

358 

359 

360 

361 

362 

363 
36*. 

365 

366 

367 
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WHERE: 

ADR = ADDRESS OF ERROR HL T 

DJADR = CSR ADDRESS OF DJ 11 UNDER TEST 

(RN) ~ CONTENTS OF GENERAL REGISTER 'M". FROM NONE TO 

FOUR OF THESE MAY BE TY^ED DEPENDING ON THE NUMBER 
FOLLOWING THE HLT; E.G., HLT ^3 WOULD TYPE CR1) 
THRU (R3>; HLT (BY ITSELF) WOULD STOP AFTER TYPING 
ADR AND DJADR. 

TO FIND THE FAILING TES1 . LOOK AT THE LISTING ABOVE THE 
ADDRESS TYPED. IN MOST CASES THE COMMENT BESIDE THE HLT 

TELLS WHAT WAS BEING CHECKED AND WHAT WAS EXPECTED. ALSO, A 

LIST OF THE PROBABLE FAILING LOGIC IS GIVEN IN THE COMMENTS 
AT THE BEGINNING OF THE TEST. 


6.2 ERROR RECOVERY 

RESTART AT 20C GR 1000. 


6.3 ERROR COUNTER 

AN ERROR COUNT IS KEPT IN "ERRORS'* . IT CAN BE CLEARED FROM 
THE CONSOLE. BY RESTARTING AT 200. OR BY RELOADING THE 
PROCRAM. 


7. RESTRICTIONS 

IF MORE THAN ONE Djll IS TESTED AT A TIME. THE DEVICE 
ADDRESSES AND THE VECTOR ADDRESSES MUST ALL BE CONTIGUOUS. 

IF THIS PROGRAM IS RUN WITH A MONITOR. I.E. ACT11 OR DDP , 
THE DEVICE ADDRESSES MUST FOLLOW THE FLOATING ADDRESS 
CONVENTION. D.HI’S WILL BE FIRST. STARTING AT 160010.. 


8. MISCELLANEOUS 


8.1 EXECUTION TIME 

DUE TO THE VERIOUS BAUD RATES AVAILABLE AND THE ABILITY TO 
7) *’ WHAT ARE THE 8R PRIORITIES? FOR:** 

’* DEVICE 1=** 

" DEVICE 2=" ETC. 

THIS WILL CO TO THE NUMBER OF DEVICES SPECIFIED 
IN QUESTION 3 ABOVE .PRIORITIES ALLOWED ARE 0 THROUGH 7. 

CHECK UP TO 16 DJITS AT ONCE. THE EXECUTION TIME CAN BE 
ANYWHERE FROM 15 SECONDS TO THREE AND A HALF HOURS. t hE 
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FOLLOWING TYPICAL TIMES ARE FOR ONE DJ11 WITH ALL LINES AT 
THE SAME SPEED, 8 LEVEL CODE, 2 STOP BITS, AND NO PARITY ON 
A PDP-11/20 WITHOUT TRACE TRAPPING. FOR MULTIPLE DJil'S, 
MULTIPLY THESE TIMES BY THE NUMBER OF UNITS SELECTED FOR 
TEST. 


BAUD RUN TIME 
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SEQ 001* 


75 00:26:00 
110 00:18:00 
134.5 00:15:00 
150 00:13:00 
300 00:06:30 
600 00:03:15 
1200 00:01:45 
1800 00:01:20 
2400 00:00:55 
4800 00:00:30 
9600 00:00:15 


STACK POINTER 


STACK IS INI TALLY SET TO 1200 


PASS COUNT 


A 32 BIT (2 WORDS) PASS COUNT IS KEPT IN PCNT. IT CAN BE 
CLEARED FROM THE CONSOLE , BY RESTARTING AT 200. OR BY 
RELOADING THE PROGRAM. 


POWER FAIL 

EACH TEST CAN BE POWER FAILED WITH NO ERRORS. TO USE. START 
THE TEST AS USUAL AND POWER DOWN THEN UP AT ANY TIME. THE 
ROUTINE SHOULD TYPE ‘T’OWER" AND RESTART THE PROGRAM WITH NO 
OTHER ERROR TYPEOUTS. 


PROGRAM DESCRIPTION 

THIS PROGRAM TESTS THE LOGIC OF UP TO 16 D J 11 ASYNCHRONOUS 
DATA MULTIPLEXERS IN MAINTENANCE MODE. IT CHECKS THAT ALL 
THE CONTROL REGISTERS FUNCTION PROPERLY. THAT INTERRUPTS 
OCCURE AT THE RIGHT PRIORITY LEVEL, AND THAT DATA CAN BE 
TRANSMITTED AND RECEIVED CORRECTLY. THE PROGRAM HAS MANY 
SUBTESTS (THE CODE BETWEEN 2 SCOPE STATEMENTS) WHICH ARE RUN 
16 TIMES BEFORE CONTINUING TO THE NEXT. SW<11> ON A 1 
CAUSES EACH SUBTEST TO BE RUN ONLY ONCE. SW<9> ON A 1 
ENABLES LOOP ON ERROR. THE ADDRESS ,, ICNT” CONTAINS THE 
ITERATION COUNT IN THE LEFT BYTE AND THE TEST NUMBER IN THE 
RIGHT BYTE. ALL THE SUBTESTS SHOULD BE RUN SEQUENTIALLY BY 
STARTING AT 200 NOT BY START IN^ AT THE BEGINNING OF THE 
SUBTEST. TO LOOP ON A PARTICULAR SUBTEST. PUT THE TEST 
NUMBER (SEE LISTING) IN THE RIGHT BYTE OF THE SWITCH 
REGISTER AND SW<8> ON A 1 . T HIS TEST WILL BE LOOPED UPON 
UNTIL SW<8> IS PUT ON A 0 OR THE RIGHT BYTE IS CHANGED. IF 
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-f-0 

n 
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4 V THE TEST IS NON-tX] STANT , THE PROGRAM W 

A 7 ., IF MORE THAN ONE DJ1 1 IS SELECTED, 


! 


I 


I 

! 

i 

! 




k L BE RUN AS USUAL . 
ALL THE SL8TESTS ARE 
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PFftFORMFD ON ONE UNIT AT A TIME. THE BELL WILL NOT RING AND 
EOP f PRINT, UNTIL A PASS HAS BEEN MADE ON EACH OF THE DJ11 S 
SELECTED FOR TEST. 


TITLE ZZ-CZDJA-F-0 DJll LOGIC TESTS 
'.ENABLE ABS 

^COPYRIGHT* 1972,1979 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 


HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 
PRINT SILO ALARM LEVEL 
INHIBIT ITERATIONS 

0 - BELL ON PASS COMPLETE 

1 - BELL ON ERROR 
LOOP ON ERROR 

LOOP ON TEST IN SU<7:0> 


ASSIGNMENTS: 


STATUS 

BITO 

81 T 1 

BIT2 

BIT3 

BITA 

BIT5 

BIT6 

81 T7 

BIT8 

81 T9 

BIT10 

BIT11 

BIT1 2 

BJT13 

BIT14 

sins 


REGISTER (CSR) XXXXXO „ v 
RECEIVER ENABLE (READ/WRITE) 

HALF DUPLEX SELECT (READ/WRITE) 

MAINTENANCE (READ/WRITE) 

CLEAR MOS (WRITE ONLY) 

CLEAR MOS FLAG (READ ONLY) 

RECEIVER INTERUPT ENABLE (READ/URITE) 

MASTER^TRANSMITTER SCAN ENABLE (READ/WPITE) 

READ/URITE BREAK REGISTER (READ/URITE) 

NOT USED 

STATUS ENABLE (READ/WRITE) 

UMMI" KipT ENABlE (READ/URITE J 
TRANSMITTER READY (READ ONLY) 


RECEIVER BUFFER REGISTER (RBUF) XXXXX2 (READ ONLY) 


BITO-7 

BIT6-11 

BJT12 

BIT13 

BIT14 

BIT15 


RECEIVED CHARACTER 
LINE NUMBER 
PARITY ERROR 
FRAMING ERROR 
UART OVERRUN 2RR0R 
CHARACTER PRESENT 
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489 

490 


TRANSMITTER COI 

491 

492 



BIT0-1 

493 

494 


TRANSMITTER BO 

495 

496 

497 



BIT0-7 
BIT 8—1 

498 

499 


BREAK 

CONTROL : 

500 

501 



BIT 0—1 

502 

503 

; 04400 

SC0PE= 

TRAP 

504 

104000 

HLT= 

EMT 

505 

000004 

TYPE= 

IOT 

506 

177776 

PS= 

177776 

507 

000000 

R0= 

XO 

508 

000001 

R1 = 

XI 

509 

000002 

R 2= 

X2 

510 

000003 

R3= 

X3 

511 

000004 

R4- 

X4 

512 

000005 

R5= 

X5 

513 

000005 

TTY= 

X5 

514 

000006 

S P= 

X6 

515 

000007 

PC= 

X7 

516 

000007 

BELL = 

7 

517 

000001 

BITO= 

1 

518 

000002 

BI T1 = 

2 

519 

000004 

BI T2= 

4 

520 

000010 

BI T3= 

10 

521 

000020 

BI T4= 

20 

522 

000040 

BI T5= 

40 

523 

000100 

BI T6= 

100 

524 

000200 

BIT7= 

200 

525 

000400 

BIT8= 

400 

526 

001000 

BIT9= 

1000 

527 

002000 

BIT 10= 

2000 

528 

004000 

BI T1 1= 

4000 

529 

010000 

BIT12= 

10000 

530 

020000 

BI T13= 

20000 

531 

040000 

Biri4= 

40000 

532 

100000 

BI 715= 

100000 

533 

000340 

LEVEL 7 

= 340 

534 

000000 

OPEN = 

0 

535 

000020 

DJMXNO- 

■16. 

536 

001200 

STACK 

=1200 


;MAX ALLOWED NUMBER OF DJlI’S 


T) CREAD/WRITE) 


- 
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537 

538 OOOOOO 

539 

540 

541 

542 

543 

544 000046 

545 

546 

54 7 000174 

548 0001 76 

549 

550 

551 000200 

552 

553 001000 


566 

567 001200 

568 001300 

569 001302 

570 001304 

571 001306 

572 001310 

573 001312 

574 001314 

575 

576 001J20 

577 001322 

578 001 32* 

579 001324 

580 001326 

581 

582 001330 

583 001332 

584 001334 

585 001336 

586 

587 001340 

588 001342 

589 001344 

590 001346 

591 001350 

592 001352 


OOOOOO 

OOOOOO OOOOCO 


000046 

014450 

000174 

OOOOOO 

OOOOOO 

000200 

000137 0014C2 

001000 

000137 002344 

001200 
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DJI 1 SPECIFICATIONS 

. = 0 .-TRAP CATCHER IN LOCATIONS 0 THRU 776 

0.0 .-LOCATIONS 0 AND 2 CONTAIN “HALT" INSTRUCTIONS 

LOCATIONS 4 THRU 56 CONTAIN “.+2“ AND ’HALT" IN EVERY VECTOR 
.■LOCATIONS 60 THRU 77 6 CONTAIN 2 “ AND “IOT" IN EVERY VECTOR 

. ~ 46 

SENDAD 

174 

DISPREG:0 
SWREG: 0 


SEG 0017 


BECJN 


;200 ALWAYS IS THE STARTING ADDRESS 
.-RESTART ADDRESS 


000100 

LENGTH: .8UC8 

OOOOOO 

PARITY: 0 

OOOOOO 

PARIT2: 0 

OOOOOO 

PARIT3: 0 

OOOOOO 

PARIT4 : 0 

OOOOOO 

I CNT : 0 

OOOOOO 

ERRORS: 0 

OOOOOO OOOOOO 

PCNT : 0.0 

160010 

CSR: 160010 

160012 

RBUF: 160012 

TCR: 

160014 

BCSR: 160014 

160016 

TBUF: 160016 

00030C 

RCVVEC : 300 

00^302 

RCVLVL •* 302 

000304 

XMTVEC: 304 

000306 

XMTLVL: 306 

160010 

DEVADR: 160010 

000300 

VECADR: 300 

000001 

UNITS: 1 

OOOOOO 

TIMER: 0 

OOOOOO 

ALMFLG: 0 

OOOOOO 

TIMERA: 0 


1200 

ADDRESS TABLES 

“LZNGTH” TABLE IS SET SO THE FIRST FOUR BYTES (2 WORDS) CONTAIN 

THE CHARACTER LENGTH FOR THE 4 LINE GROUPS OF THE FIRST DJ11. ETC. 

1 PARITY" TABLE HAS 4 WORDS. ONE FOR EACH LINE GROUP. THE FIRST WORD CONTAINS 

THE ODD PARITY FLAGS FOR LINES 0-3 Of ALL DJlI'S. THE NEXT WORD 
HAS PARITY FLAGS FOR LINES 4-7. ETC. EACH BIT IN THE WORD REPRESENTS 
EACH DJ1 1 . BIT 0 IN EACH OF THE FOUR WORDS IS FOR DJ/O TO RIT 
15 FOR DJ/15. 

ENGTH: .8LK8 100 .-TABLE OF CHAR. LENGTHS (MASK) 

ARITY: 0 .-ODD PARITY FLAGS fOR LINES 0-3 

ARIT2: 0 .ODD PARITY FLAGS FOR LINES 4-7 

ARIT3: 0 .-ODD PARITY FLAGS FOR LINES 10-13 

ARIT4: 0 .-ODD PARITY FLAGS FOR LINES 14-17 

CNT : 0 .ITERATION COlWT-LH. TEST NO.-RH 

RRORS: 0 .-ERROR COWT REGISTER 

CNT: 0.0 .-PASS COCWT REGISTER 

SR; 160010 .-CONTROL STATUS REGISTERCDJ U®E R TEST) 

BUF: 160012 .-RECEIVER BUFFER REGISTERCDJ UNDER TEST) 

CR: ; TRANSMITTER CONTROL REGISTERCDJ IMDER TEST) 

CSR: 160014 ;8REAX STATUS REGISTERCDJ LM)ER TEST) 

BUF: 160016 .TRANSMITTER BUFFER REGISTERCDJ JNDER TEST) 

CVVEC: 300 .-RECEIVER INTERUPT VECTOR ADDRESSCDJ INDER TEST) 

CVLVL: 302 

MTVEC: 304 .-TRANSMITTER INTERUPT VECTOR ADDRESSCDJ UNDER TES T < 


FIRST DEVICE ADDRESS (SELECTED) 
FIRST VECTOR ADDRESSCSELECTED) 
NLMBER OF UNITS TO BE TESTED 
USED TO SAVE RELATIVE TIMES 
TEST FLAG FOR SILO ALARM LEvEi 
TIME COUNTERS 



iZZ-CZD JA-F-0 t 
C/DJAF.P11 2 

595 001554 

594 001 356 

595 001360 

596 

597 001 362 

598 001 364 
559 001 366 

600 001370 

601 001372 

602 

603 001374 

604 001 376 

605 

606 

607 001400 

608 
609 


Dj 1 1 LOGIC TESTS 
26-FEB-79 15:41 

; 000000 
i 000000 
) 000000 


F 2 

MACY11 30A( 10521 26-FE8-79 15:47 PAGE 

TABLES AND ' ‘SCRAT ( H PAD“ 

TIMER8: 0 
COUNT: 0 
SUM: 0 


000000 

000000 

000000 

160010 

000300 

T 77570 
177570 


177777 


DJUUT: 0 
DJLEN: 0 
DJPAR : 0 

DEFADR: 160010 
DEFVEC: 300 

SWR: 177570 

DISPLAY :177570 


FTIME: -1 


Sf 0 0018 


; C HAR COUNTER 

; SUMAT ION OF ALARM LEVEL CHAR'S 

.■UNIT NUMBER OF DJ1 1 UNDER TEST 
; CHAR MASK TABLE POINTER 
.-UNIT FLAG (FOR ODD PARITY FLAG) 
.•DEFAULT FIRST DEVICE ADDRESS 
.-DEFAULT FIRST VECTOR ADDRESS 



G 2 

ZZ-CZDJA-F-0 DJll LOGIC TESTS MACYll 30AM052) 26-FE8-79 15:47 PAGF 


ZDjAF. 

PI 1 26-FEB-79 

15:41 



SETUP AREA 

610 








6 1 1 

001 402 

012706 

001200 


BEGIN: 

MOV 

#S T ACK, SP 

612 

001406 

004737 

017524 



jSR 

PC, SUSWRR 

613 

001412 

C 1 2700 

000020 



MO/ 

U20.R0 

614 

001416 

01 2720 

016364 



MOV 

#IOTRAP, (RO) ♦ 

61 S 

001422 

012720 

000340 



MOV 

#340. (RO) ♦ 

616 

001426 

012720 

016224 



MOV 

APDOWNJ, (RO) + 

617 

001432 

012720 

000340 



MOV 

#340. (R0)+ 

618 

001436 

012720 

015254 



MOV 

#EMT$, (RO) + 

619 

001442 

012720 

000340 



MOV 

#340. (RO) + 

620 

001446 

012720 

015 1 12 



MOV 

#TRAPS. (RO)-* 

621 

001452 

012720 

000340 



MOV 

#340, (RO)-* 

622 

001456 

005037 

001312 



CLR 

ERRORS 

623 

001462 

005037 

001314 



CLR 

PCNT 

624 

001466 

005037 

001316 



CLR 

PCNT *2 

625 

0014^2 

005037 

001350 



CLR 

ALMFLG 

626 

001476 

005737 

000042 



TST 

i#42 

627 

001502 

001404 




BEQ 

GETADR 

628 

001504 

004737 

017304 



JSR 

PC, AUTO 

629 

001510 

000137 

002344 



JMP 

QA8R 

630 








631 

001514 

000004 

017013 


GETADR: 

TYPE. 

MTITLE 

6^2 

001520 

000004 

016524 



TYPE. 

RETURN 

633 

C01524 

000004 

016532 



TYPE. 

MSGADR 

634 

001530 

004537 

015476 



JSR 

R5. READIN 

635 

001534 

001340 




.WORD 

DEVADR 

636 

001536 

001366 




BNE 

GETADR 

637 

001 540 

005737 

001340 



TST 

DEVADR 

638 

001544 

001003 




BNE 

1* 

639 

001546 

013737 

00 370 

001340 


MOV 

DEF ADR, DEVADR 

640 

001554 

042737 

000007 

001 340 

1$: 

BIC 

#7. DEVADR 

641 

001562 

022737 

160000 

001340 


CMP 

#160000. DEVADR 

642 

001570 

101351 




BHI 

GETADR 

643 








644 

001572 

000004 

016562 


GETVFC: 

TYPE. 

MSGVEC 

645 

001576 

004537 

015476 



JSR 

R5. READIN 

646 

001602 

001342 




.WORD 

VECADR 

647 

001604 

001372 




BNE 

GFTVEC 

648 

001606 

005737 

001342 



TST 

VECADR 

649 

001612 

001003 




BNE 

IS 

650 

001614 

012737 

000300 

001342 


MOV 

#300, VECADR 

651 

001622 

042737 

000007 

001 342 

1$: 

BIC 

#7, VECADR 

652 

001630 

022737 

000300 

001342 


CMP 

#300. VECADR 

653 

001636 

003355 




BGT 

GETVEC 

654 

001640 

0227V 

001000 

001342 


CMP 

#1000. VECADR 

655 

001646 

003751 




BLE 

GETVEC 

656 

001650 

000004 

016606 


GETNUM: 

T YPE, 

MSGNUM 

657 

001654 

004737 

015644 



JSR 

PC .READS 

658 





; CHECK 

string 

FOR VALID DIGITS 

659 

001660 

012702 

015772 



MOV 

#INPUT.R2 

660 

001664 

112201 




Move 

(R2)«,R1 

661 

001666 

001434 




BEO 

IS 

662 

001670 

122701 

000120 



CMP8 

#*P.R1 

663 

001674 

001443 




BEQ 

CONFIG 

664 

001676 

120127 

000071 



CMP8 

R1,#71 

665 

001702 

101362 




BHI 

GETNlW 


20 


SEG 0019 


; SE T UP STACK POINTER 
.•CHECK FOR SWITCH REGISTER 

; JOT VECTOR (20) 

.•POWER FAIL VECTOR (24) 

;EMT VECTOR (30) 

.-TRAP VECTOR (34) 

.•CLEAR ERROR COUNTER 
.•CLEAR PASS COUNTER 


CHECK FOR ACT 11 OR DDP PRESENT 
BRANCH IF NONE 

GO TO SUBROUTINE TO ’HAP" DJl 1 ON the SYS 
SKIP OPERATOR ACTION 


TYPE *TIRST DJll ADDRESS” 
READ IKPUT FROM TTY AND SAVE 
IN DEVADR 

BRANCH If BAD INPU T 


; TYPE 'VECTOR ADDRESS:" 

.-READ INPUT FROM TTY AND SAVE 
; IN VECADR 
.•BRANCH IF BAD INPUT 
.-CHECK FOR CR 

; SE T TO FIRST FLOATING VECTOR 
.•CLEAR TO MODULO 10 
.•CHECK FOR LOW LIMIT 

.•CHECK FOR UPPER LIMIT 

.•TYPE'NLWBEP OR UNITS:" 

.-READ INPUT FROM THE TTY 
TERMINATOR. AND 'P* 

.•POINTS TO INPUT STRING 
.-LOAD 1ST CHAR 

.•BRANCH IF IMMEDIATE TERMNATOR 
.-CHECK FOR A P 
.•CONFIGURE MODE IF SO 
;MUST BE A VALID ASCII NUMBER 
.•ELSE RETRY 



St Cl 00 20 
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CZDjAF.PII 26-FEB-79 15:41 SETUP AREA 


666 

001704 

162701 

000060 



sue 

#60. R1 

STRIP ASCII CODE 

667 

001710 

003757 




B.F 

GE TNJM 

SHOULDN'T BE ZERO OR NEG 

668 





■1ST CHAR IS A 

VALID DIGIT. 1 THRU 9 - CHECK REST OF STRING 

669 

001712 

105722 




TST8 

(R2>* 

2ND CHAR A TERMINATOR? 

670 

001714 

001423 




BEQ 

3S 

YES - R1 HAS THE FINAL # OF UNITS 

671 

001716 

105712 




TST8 

(R2) 

NO - NXT CHAR MUST BE THE TERMINAT 

672 

001720 

001353 




BNE 

GE TNUM 

ELSE RETRY. 

673 

001722 

124227 

000071 



CMP8 

-(H?) .#71 

CHECK 2ND CHAR FOR A VALID NUMBER 

674 

001 726 

101350 




BHI 

GETNUM 


675 

001730 

111203 




movb 

(P.2). R3 

MAKE IT MORE ACCESSIBLE 

676 

001 732 

162703 

000060 



sue 

#60. R3 

STRIP ASCII CODE 

6 77 

001 736 

10C744 




BMI 

GE TNUM 

SHOULDN'T BE NEGATIVE 

678 





:801H LOW AND 

HIGH ORDER DIGITS ARE OK - CONVERT DECIMAL VALUE. 

679 

001740 

010146 




MOV 

RI.-(SP) 

SAVE IT FOR LATER 

680 

001742 

006301 




ASL 

R1 

MULT HI ORDER BY 8 

681 

001744 

006301 




ASL 

R1 


682 

001746 

006301 




ASL 

R1 


683 

001750 

006316 




ASL 

(S P) 

MULTIPLY IT BY 2 

684 

001752 

062601 




ADD 

(SP)*.R1 

RESULT IS (HI ORD>-10. 

685 

001754 

060301 




ADD 

R3.R1 

NOW ADD IN THE LOW ORDER 

686 

001756 

000402 




BR 

3S 


687 

001760 

012701 

000001 



MOV 

#1 ,R 1 

LOAD DEFAULT VALUE HERE 

688 





;R1 HAS 

THE CONVERTED VALUE - COMPARE AGAINST MAX ALLOWED. 

689 

001764 

020127 

000020 


31: 

CMP 

R1 ,#D.'MXNO 

TOO BIG? 

690 

001770 

101327 




BHI 

GETNUl^ 

YES - RETRY. 

6 Q 1 

001772 

010137 

C01 344 



MOV 

RI.UNUS 

VALUE OK - STORE RESULT 

c92 

/07 

001776 

012737 

000100 

001 362 


MOV 

#100.DJUUT 

' PRIME” UNI I UNDER TEST NUMBER 

cV3 

694 

002004 

000004 

016631 


CONFIG: 

T VPE , 

MSGCON 

TYPE ' •STANDARD CONFIG?" 

695 

002010 

004737 

015644 



JSR 

PC. reads 

READ INPUT FROM I TY 

696 

002014 

122737 

000120 

015772 


CMP0 

#*P. INPUT 

CHECK FOR *P" 

697 

002022 

001002 




BNE 

AAA 

GO THRU If NOT PREVIOUS 

698 

G02024 

00G137 

002344 



JMP 

QABR 

BRANCH IF PREVIOUS 

699 

002030 

012700 

000044 


AAA: 

MOV 

#44 . RO 

SET UP COUNTER 

700 

002034 

012701 

001200 



MOV 

#LENGTH.R1 

POINT TO CHAR LEN TABLE 

701 

002040 

005021 



IS: 

CLR 

(R1 ) ♦ 

PUT CHAR MASK FOR 8 IN CHAR TABLE 

702 








AND CLR PARITY TABLE 

703 

002042 

005300 




DEC 

RO 

COUNT DOWN 

704 

002044 

001375 




BNE 

IS 

BRANCH IF NOT DONE 

705 

002046 

105737 

015772 



TSTB 

INPUT 

CHECK FOR CR 

706 

002052 

001002 




BNE 

SSS 

GO THRU IF NOT DEFAULT 

707 

002054 

000137 

002344 



JMP 

QABR 

BRANCH IF DEFAULT 

708 

002060 

122737 

000131 

015772 

SSS : 

C.MP6 

#131, INPU T 

CHECK FOR "Y" 

709 

002066 

001002 




BNE 

DDD 

GO THRU IF NOT DEFAULT 

710 

002070 

000137 

002344 



JMP 

QABR 

BRANCH IF DEFAULT 

711 

002074 

122737 

000116 

015772 

DDD: 

C.MP8 

#116, INPUT 

CHECK FOR *V’ 

712 

002102 

001340 




BNE 

CONFIG 

BRANCH IF ILLEGAL ENTRY 

713 

002104 

005000 




CLR 

RO 

CLR UNIT COUNTER 

714 

002106 

005001 




CLR 

R1 

CLR LINE COUNTER 

715 

002110 

012702 

001200 



MOV 

#LENCTH.R2 

SET UP POINTER T 0 CHAR MASK TABLE 

716 

002114 

012703 

001300 



MOV 

#PARITY.R3 

SET UP POINTER TO PARITY T ABcE 

717 

002120 

012704 

000001 



MOV 

#1 ,R4 

SET UP MARKER 

718 

002124 

000004 

016665 


TVPLJN; 

TYPE. 

MSGLIN 

TYPE "LINES " 

719 

002130 

010105 




MOV 

R1.TTY 

TYPE RT IN OCTAL 

720 

002132 

004737 

016052 



JSR 

PC. PRINTS 

AND SUPRESS LEADING ZERO'S 

721 

002136 

000004 

016676 



TYPE. 

MSGDAS 

TYPE A DASH <-) 



ZZ-CZDJA-F-0 D 

j 1 1 LOGIC TESTS 

MACY11 

30A(1052> 

26- 

I 2 

E8-79 15:47 PAGE 

22 

SEQ 0021 

CZDJAF 

P11 26-FEB-79 

15:41 



SETUP 

AREA 


722 

002142 

062701 

000003 



ADD 

#3. R1 

LAST LINE IN GROUP OF U 


72 3 

002146 

010105 




MOV 

R1 .TTY 

TYPE Rl IN OCTAL 


724 

0021 50 

004737 

01605? 



JSR 

PC. PRINTS 

AND SUPRESS LEADING ZERO’S 


725 

002154 

005201 




INC 

Rl 

FIRST LINE NEXT GROUP 

TYPE "CHAR LENGTH: ” 


726 

002156 

000004 

016702 


GETlEN: 

TYPE. 

MSGLEN 


727 

002162 

005037 

015770 



CLR 

INHRE 



72 8 

002166 

004737 

015644 



JSR 

PC. READS 

READ FROM THE TTY 


729 

002172 

105737 

015772 



TST6 

INPUT 

CHECK FOR CR (DEFAULT) 


730 

002176 

001421 




8EQ 

GETPAR 

BRANCH IF DEFAULT 


731 

002200 

105737 

015773 



TSTQ 

INPUT *1 

CHECK FOR BAD DATA 


732 

002204 

001 364 




BNE 

GETLEN 

BRANCH IF BAD 


733 

002206 

162737 

000060 

015772 


sue 

#60, INPUT 

CONVERT FROM ASCII 


734 

002214 

112712 

1 77777 



MOVB 

#-1, (R2) 

SET UP MASK 


735 

002220 

106312 



2$: 

ASL8 

(R 2) 

CLEAR MASK BIT BY BIT 


736 

002222 

103355 




BCC 

GETLEN 

BAD INPUT, > 8 


737 

002224 

105337 

015772 



DECS 

INPUT 

COUNT 


738 

002230 

001373 




BNE 

2S 

BRANCH IF NOT DONE 


7 39 

002232 

132712 

000037 



BIT8 

#37, (R2) 

CHECK FOR 5 CHAR 


740 

002236 

001347 




BNE 

GETLEN 

BAD INPUT, < 5 


741 

002240 

005202 




INC 

R2 

INC TO NEXT LINE GROUP 


742 

002242 

000004 

016723 


GETPAR: 

TYPE. 

MSGPAR 

TYPE ‘PARITY (NO. ODD. EVEN): 


743 

002246 

005037 

015770 



CLR 

INHRE 



744 

002252 

004737 

015644 



JSR 

PC. READS 

READ INPUT FROM TYY 


745 

002256 

005737 

015772 



TST 

INPUT 

ChECK FOR CR 


746 

002262 

001415 




BEQ 

3S 

BRANCH IF DEFAULT 


747 

002264 

122737 

000116 

015772 


CMP8 

#116. INPUT 

CHECK FOR 'V 


748 

002272 

001411 




BEO 

3S 

BRANCH IF 'N0‘ * 


749 

002274 

122737 

000105 

015772 


CMP8 

#105. INPUT 

CHECK FOR "E" 


750 

002302 

001405 




BEO 

3S 

BRANCH IF ‘EVEN” 

CHECK FOR *tr 


751 

002304 

122737 

000117 

015772 


CMP8 

#11 7. INPUT 


752 

002312 

001353 




BNE 

GETPAR 

BRANCH IF NONE 


753 

002314 

050413 




BIS 

R4. (R3) 

(R3)«- 

SET THE ODD PARITY FLAG 


754 

002316 

005723 



3$: 

TST 

POINT TO THE NEXT PARITY WORD 


755 

002320 

032701 

000017 



BIT 

#17, Rl 

CHECK FOR NEXT UNIT 


756 

002324 

001277 




BNE 

TVPLIN 

BRANCH IF NOT 


757 

002326 

012703 

001300 



MOV 

#PARITY.R3 

RESET PARITY TABLE POINTER 


758 

002332 

006304 




ASL 

R4 

FLAG TO NEXT UNIT 


759 

002334 

005200 




INC 

RO 

COUNT UNITS 


760 

002336 

020037 

001 344 



CMP 

RO, UNITS 

CHECK FOR LAST 


761 

762 

763 

764 

765 

002342 

001270 




BNE 

TYPUN 

BRANCH IF MORE 







; ROUTINE TO GET BUS PRIORITIES FOR INDIVIDUAL DjIIS 


002344 

000004 

017051 


QA8P: 

TYPE. 

MSBR 

TYPE QUESTION- BR PRIORITES??? 


766 

002350 

012737 

000061 

017210 


MOV 

#61. DEVNUN 

LOAD UP INITIAL DEVICE # 


767 

002356 

012737 

000061 

017212 


MOV 

#61. UN1TS1 

LOAD FIRST UNIT FOR BR QUESTION 


768 

002364 

010446 




MOV 

R4,-(SP) 

SAVE CONTENTS OF R4 


769 

002366 

012704 

017232 



MOV 

#PR T8LE+2.R4 

SKIPPING FIRST TABLE LOCATION 


770 








TO ALLOW ROUTINE BRSET TO UORK 


771 

002372 

063737 

001344 

017212 


ADD 

UNITS. UNITS! 

LOAD TOTAL UNITS IN UNITS! 


772 

002400 

000004 

017174 


DFVNEW: 

TYPE. 

VICE 

TYPE OUT WORD ’DEVICE” 


773 

002404 

000004 

017210 



TYPE. 

DEVNUM 

TYPE DEVICE NUMBER 


774 

002410 

000004 

000075 



TYPE. 

* . 

TYPE AN EQUAL SIGN 


775 

002414 

004737 

015644 



JSR 

PC. READS 

GO READS IN NLMBERCASCI I ) 


776 

002420 

025727 

015772 

000060 


CMP 

INPUT. #60 

CMP DECIMAL 7 AND BR INPU’ 


777 

002426 

100415 




8MI 

NOGOOD 

REPORT ERROR 
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778 002430 

7 79 002436 
?80 002440 

781 002444 

7 82 002450 

783 002456 

784 002460 

785 002462 

7 86 002466 

7 87 002470 


MAC V1 1 30A( 1052) 26-FE8-79 15:47 PAGE 23 

SETUP AHEA 


022737 000067 
100411 

013724 015772 

005237 017210 
023737 017212 
001350 
000403 

000004 C17H7 

000744 

012604 


015772 


017210 


CMP 

BMI 

MOV 

INC 

CMP 

BNE 

BR 

NOGOOD: TYPE. 


AROUND: MOV (SP)*. 


#67. INPUT 
NOGOOD 
INPUT, (R4) + 
DEVNUM 

UNITS1.DEVNUM 

DEVNEW 

AROUND 

MS8AD 

DEVNEW 


r HECK IF A VALID ENTRY 
REPORT ERROR 
STORE VALUE OF PR 10 
TO NEXT DEVICE # (IN ASCII) 

ARE YOU TESTING LAST DEVKF'” 7 
BACK I c MORE DEVICES 
THRU IF ALL DEVICES FINISHED 
TYPE ERROR IN INPUT VALUE 
BACK TO ASK AGAIN 
RESTORE R4 


ZZ-CZDJA-F-0 

DJ 1 1 LOGIC TESTS 

MACYll 

30A( 1052) 26- 

K 2 

FEB-79 15:47 PAGE 

czdjaf. 

.PI 1 

26-FEB-79 

15:41 



SETUP 

AREA 

788 








78S 

002472 

000005 



RESTAR: 

RESET 


790 

002474 

012706 

001200 



MOV 

ASTACK. SP 

791 

002500 

005737 

001400 



TST 

F T IME 

792 

002504 

001410 




BEO 

CLRVEC 

793 

002506 

022737 

000176 

001374 


CMP 

ASWREG. SWR 

794 

002514 

001004 




BNE 

CLRVEC 

795 

002516 

00S737 

017604 



I SR 

PC. CNTLU 

796 

002522 

005037 

001400 



CLR 

F TIME 

797 

002526 

012700 

000300 


CLRVFC: 

MOV 

A30O.R0 

798 

002532 

005720 



1$: 

TST 

(R0) ♦ 

799 

002534 

010060 

1 77776 



MOV 

R0.-2CR0) 

800 

002540 

012720 

000004 



MOV 

A JOT , (RO) ♦ 

801 

00254*. 

022700 

001000 



CMP 

A1000.R0 

802 

002550 

001 370 




BNE 

1$ 

803 

002^52 

062737 

000010 

001320 


ADD 

A10. CSR 

804 

002560 

062737 

000010 

001330 


ADD 

A10. RCVVEC 

305 

002566 

062737 

000004 

001 364 


ADD 

A4, djlen 

806 

002574 

006337 

001366 



ASL 

DJPAR 

807 

002600 

023737 

001362 

001 344 


CMP 

DJUUT. UNITS 

808 

002606 

002416 




BLT 

2% 

809 

002610 

005037 

001362 



CLR 

DJUUT 

810 

00261 ^ 

013737 

001340 

001320 


MOV 

DEVADR.CSR 

811 

002622 

013737 

001342 

001 33C 


MOV 

VECADR, RCVVEC 

812 

002630 

012737 

001200 

0C1364 


MOV 

ALENGTH. DJLEN 

8 1 3 

002636 

012737 

000001 

001366 


MOV 

A1 .DJPAR 

814 

0C2644 

005237 

001362 


2$: 

INC 

DJUUT 

815 

002650 

013701 

001320 



MOV 

CSR. R1 

816 

002654 

062701 

000002 



ADD 

A2. R1 

817 

002660 

010137 

001322 



MOV 

R1 , RBUF 

818 

002664 

0627C1 

000002 



ADD 

#2, R1 

819 

002670 

010137 

001324 



MOV 

R1 , TCP 

820 








821 

002674 

06^701 

000002 



ADD 

A 2. R1 

822 

002700 

010137 

001326 



MOV 

R1 . TBUF 

823 

002704 

013701 

001330 



MOV 

RCVVEC. R1 

324 

002710 

005721 




TST 

(R1)> 

825 

002712 

010137 

001332 



MOV 

R1 . RCVLVL 

826 

C02716 

005721 




TST 

<RD* 

827 

002720 

010137 

001334 



MOV 

R1 , XMTVEC 

828 

002724 

005721 




TST 

(Rl ) ♦ 

829 

002726 

010137 

001336 



MOV 

R1 , XMTLVL 

330 

L02732 

005037 

001310 



CLR 

ICNT 

831 

002736 

005037 

015250 



CLR 

LAD 

832 

002742 

104400 




SCOPE 


833 









834 


24 


SE Ci 00? i 


.-ISSUE RE FT 
; SE T UP STACK POINTER 


.‘BEGINNING OF FLOATING VECTORS 



i i 
* « 


UPDATE DEVICE ADDRESS TO NeXT UNIT 
UPDATE DEVICE VECTOR ADDRESS 
MOVE CHAR TABLE POINTER 
UPDATE PARITY FLAG MARKER 


INI T CHAR TABLE POINTER 
INI T PARITY FLAG MARKER 

SET UP ALL THE REGISTER ADDRESSES 
ADD 2 

SET UP RECEIVER BUFFER 
ADD 2 

SET UP TRANSMITTER CONTROL REG 
AND BREAK STATUS REG 
ADD 2 

SET UP TRANSMITTER BUFFER 

POINTER FOR VECTOR SETUP 

INC R1 

SET INT LVL 

INC R1 

TRANSMITTER VECTOR 
INC R1 

XMT INT LVL ADR 



ZZ-CZDJ4-F-0 DJ1 1 LOGIC TESTS 
CZDJAF.P11 26-FEB-79 15:41 


MACY11 30A0 052) 26-FE8-79 15 : W PAGE 25 

TST1 : TEST IF CSR EXISTS 


********************************** r * < t ***********»**************«**,»». 1 

TEST 1: TEST ABILITY TO REFERENCE CSR WITHOUT TRAPPING 

AND ABILITY TO CLR CSR. 

PROBABLE FAULTY LOGIC: M105; M7285 (D2-6) E29 

***************************************** *************»*****«*******«i 


SEu 00^4 


002744 

012737 

003002 

000004 

TST1: MOV 

m. a*4 

; SET UP TIME-OUT TRAP VECTOR 

002752 

012737 

000340 

000006 

MOV 

#LEVEL7.a#6 


002760 

005777 

176334 


TST 

acsR 

.-REFERENCE CSR (READ) 

002764 

005077 

176330 


CLR 

arsR 

.-CLEAR CSR (WRITE) 

002770 

005577 

176324 


ADC 

acsR 

.•CHECK CSR (READ AND WRITE) 

002774 

001405 



BEQ 

2$ 

.•BRANCH IF OK 

002776 

104000 



HLT 


; CSR NOT CLEARED 

003000 

000403 



BR 

2$ 

.•SKIP ISR 

003002 

012601 



It: MOV 

(SP)*.R1 

.-SAVE RTI ADR FOR TYPING 

003004 

1040C1 



hlt+i 


.-CAN'T REFERENCE CSR I 

003006 

005 726 



TST 

(S P)* 

.•FINISH CLEARING STACK 

003010 

012737 

000006 

000004 

?$: MOV 

#6,a*4 


003016 

005037 

000006 


CLR 

a#6 


003022 

104400 



SCOPE 







•TEST 2: 

TEST THAT CSR BIT! CAN BE SET AM) CLEARED 





; PROBABLE FAULTY LOGIC: M7285 

(D2-2) E25.E7. (D2-4) E47.E64 

003024 

012777 

000002 

176266 

T ST2: MOV 

ABIM.aCSR 

.SET BIT1 

003032 

032777 

000002 

1 76260 

BIT 

*8IT1.aCSR 

.•CHECK THAT BIT 1 IS SET 

003040 

001001 



BNE 

.♦4 

;8RANCH IF OK 

003042 

104000 



HLT 


;CSR BIT1 FAILED TO SET 

003044 

032777 

177775 

176246 

BIT 

#1 77775. aC SR 

.CHECK THAT NO OTHER BIT SET 

003052 

001401 



BEO 

. *4 

.•BRANCH IF OK 

003054 

104000 



HLT 


.•EXTRA BIT SET IN CSR 

003056 

005077 

176236 


CLR 

acsR 

.‘CLEAR 81 T1 

003062 

032777 

000002 

176230 

BIT 

*8ITl.aCSR 

.•CHECK THAT BIT1 IS CLEARED 

003070 

001401 



BEO 

. *4 

.BRANCH IF OK 

003072 

104000 



HLT 


;CSR BIT1 FAILED TO CLEAR 

CO 3074 

1 04400 



SCOPE 







TEST 3: 

TEST THAT CSR 81 T2 CAN BE SET AND CLEARED 





PROBABLE FAULTY LOGIC: M7285 

(D2-2) E25.E7. (D2-4) E47.E64 

003076 

012777 

000004 

176214 

T S T 3 : MOV 

081 T2, acsR 

.SET BIT2 

003104 

032777 

000004 

176206 

BIT 

#BIT2.aCSR 

.CHECK THAT BIT2 IS SET 

0C3112 

001001 



BNE 

.♦4 

.•BRANCH IF OK 

003114 

104000 



HLT 


;CSR BIT2 FARED TO SET 


ZZ-CZDJA-F-0 DJ1 1 LOGIC TESTS 
CZDjAF.PII 26-FEB-79 1 5 : AT 


8V 1 003116 

892 0031 24 

893 C03126 

894 

895 0031 30 

896 003134 

897 003142 

898 003144 

899 

900 003146 


032777 

001401 

104000 

005077 

032777 

001401 

104000 

104400 


1 761 64 
000004 


M 2 

MAC Yl 1 30A(1052) 26-FEB-79 15:47 PAGE 26 

TST3: TEST 8IT2 OF CSR 


177773 176174 


176156 


#1 77773, aCSR 
. +4 


acsR 

#8JT2,aCSR 
. *4 


S£0 0025 


; CHECK THAT NO 0 T HER BIT St'T 

.•BRANCH IF OK 

.•EXTRA BIT SET IN CSR 

.•CLEAR BIT2 

.•CHECK THAT BIT2 IS CLEARED 
.•BRANCH IF OK 
; CSR eiT2 FAILED TO CLEAR 


SCOPE 


TEST 4: TEST THAT CSR BIT6 CAN BE SET AND CLEARED 

PROBABLE FAULTY LOGIC: M7285 (D2-2) E4.E18. (D2-4) E47.E64 


907 

003150 

012777 

0001 00 

176142 

TST4: MOV 

#8IT6.aCSR 

.-SET BIT6 

908 

003156 

032777 

000100 

176134 

BIT 

#8IT6,aCSR 

.•CHECK THAT BI T6 IS SET 

909 

003164 

001001 



BNE 

.♦4 

.•BRANCH IF OK 

910 

003166 

104000 



HLT 


;CSR BIT6 FAILED TO SET 

911 








912 

0031 70 

032777 

1 77677 

176122 

BIT 

01 77677, ac SR 

.•CHECK THAT NO OTHER BIT SET 

913 

G031 76 

001401 



BEG 

.♦4 

.•BRANCH IF OK 

914 

003200 

104000 



HLT 


.EXTRA BIT SET IN CSR 

915 








916 

003202 

005077 

176112 


CLR 

acsR 

.•CLEAR BIT6 

917 

003206 

032777 

000100 

176104 

BIT 

*8JT6.aCSR 

.•CHECK THAT BIT6 IS CLEARED 

918 

003214 

001401 



BEO 

. *4 

.•BRANCH IF OK 

919 

003216 

104000 



HLT 


;CSR BIT6 FAILED TO CLEAR 

920 








921 

•303220 

104400 



SCOPE 



92? 








923 








924 





TEST 5: 

TEST THAT CSR BIT8 CAN BE SET AND CLEARED 

925 





PROBABLE FAULTY LOGIC: M7285 

(D2-2) E6.E18. (D2-4) E47.E31 

926 








927 








928 

003222 

012777 

000400 

1 76070 

T ST 5 : MOV 

A8IT8.8CSR 

.SET BIT8 

929 

00323C 

0327/7 

000400 

176062 

BIT 

A8I TS.aCSR 

.•CHECK THAT BIT8 IS SET 

930 

003236 

001001 



BNE 

.♦4 

.•BRANCH IF OK 

931 

003240 

104000 



HLT 


;CSR BIT8 FAILED TO SET 

932 








933 

003242 

032777 

1 77377 

176050 

BIT 

#1 77377. aCSR 

.•CHECK THAT NO OTHER BIT SET 

934 

003250 

001401 



BEO 

.*4 

;8RANCH IF OK 

935 

003252 

104000 



HLT 


.EXTRA BIT SET IN CSR 

936 








937 

003254 

005077 

1 76040 


CLR 

acsR 

.•CLEAR BIT8 

938 

003260 

032777 

000400 

1 76032 

BIT 

#8IT8.aCSR 

.-CHECK THAT BIT8 IS CLEARED 

939 

003266 

001401 



BEO 

. +4 

.•BRANCH IF OK 

940 

003270 

104000 



HLT 


;CSR BIT8 FAILED TO CLEAR 

941 








942 

003272 

104400 



SCOPE 



943 

944 





************** 




TEST 6: TEST THAT CSR 81 TIG CAN BE SET AND CLEARED 

PROBABLE FAULTY LOGIC: M7285 (D2-2) E30.E24. (D2-4) E47.E31 



ZZ-CZDJA-F-0 

DJ1 1 LOGIC TESTS 

MAC Y1 1 30A(1052) 26- 

N 2 

FEB-79 15:47 PAGE 

27 

, 

CZDJAF 

P11 

26-FEB-79 

15:41 


rST6: TEST 

BIT10 OF CSR 


SEO 0026 

f 









948 









949 

003274 

012777 

00200C 

176016 

'ST6: MOV 

#8IT10.aCSR 

SET BIT10 


950 

003302 

032777 

002000 

176010 

BIT 

#8IT10.aCSR 

CHECK THAT BIT10 IS SET 


951 

003310 

001001 



8NE 

.♦4 

BRANCH IF OK 


952 

953 

954 

003312 

104000 



HLT 


CSR BIT10 FAILED TO SET 


003314 

032777 

1 75777 

175776 

BIT 

#1 75777, aCSR 

CHECK THAT NO OTHER BIT SET 


955 

003322 

001401 



BEQ 

.>4 

BRANCH IF OK 


956 

003324 

104000 



HLT 


EXTRA BIT SET IN CSR 


957 









958 

00332o 

005077 

175766 


CLR 

acsR 

CLEAR BIT10 


959 

003332 

032777 

002000 

175760 

BIT 

#BIT10.aCSR 

CHECK THAT BIT10 IS CLEARED 


960 

003340 

001401 



BEQ 

. +4 

BRANCH IF OK 


961 

003342 

104000 



HLT 


CSR BIT10 FAILED TQ CLEAR 


962 









963 

003344 

104400 



SCOPE 




964 









965 





****************** 4 **************************************************«» 


966 





■TEST 7: 

TEST THAT CSR BIT12 CAN BE SET AND CLEARED 


967 





•PROBABLE FAULTY LOGIC: M7285 (D2-2) E5.E1. (D2-4) E47,E3'» 


968 





************ 

*********** ********1 



969 









970 

003346 

012777 

010000 

175744 

TST 7 : MOV 

#8IT12.aCSR 

SET 81 T 1 2 


971 

003354 

032777 

010000 

175736 

BIT 

#8IT12.3CSR 

CHECK THAT BI712 IS SET 


972 

003362 

001001 



8NE 

.♦4 

BRANCH IF OK 


973 

003364 

104000 



HLT 


CSR 9IT12 FAILED TO SET 


974 









975 

003366 

032777 

167777 

175724 

BIT 

#167777. aCSR 

CHECK THAT NO OTHER BIT SET 


976 

003374 

001401 



BEQ 

. +4 

BRANCH IF OK 


977 

003376 

104000 



HLT 


EXTRA BIT SET IN CSR 


978 









979 

003400 

005077 

175714 


CLR 

acsR 

CLEAR BIT12 


980 

003404 

032777 

010000 

175706 

BIT 

#81 T12,3CSR 

CHECK THAT BIT12 IS CLEARED 


981 

003412 

001401 



BEQ 

.♦4 

BRANCH IF OK 


982 

003414 

104000 



HLT 


CSR BIT12 FAILED TO CLEAR 


983 









984 

003416 

104400 



SCOPE 




985 









986 





************************************************************************ 


987 





■TEST 10: 

TEST THAT CSR 8IT14 CAN BE SET AND CLEARED 


988 





■PROBABLE FAULTY LOGIC: M7285 (D2-2) E3.E1. (D2-4) E47.C31 


989 





'*************************************************************•*******»* 


/?0 









991 

003420 

012777 

040000 

175672 

’ST10: MOV 

#8IT14.aCSR 

SET 9IT14 


992 

003426 

032777 

040000 

1 75664 

BIT 

#81 T14,aCSR 

CHECK THAT BIT14 IS SET 


993 

003434 

001001 



BNE 

. +4 

BRANCH IF OK 


994 

003436 

104000 



HLT 


CSR 8IT14 FAILED TO SET 


995 









996 

003440 

032777 

137777 

175652 

BIT 

#1 37777. aCSR 

CHECK THAT NO OTHER BIT SET 


997 

003446 

001401 



BEQ 

. +4 

BRANCH IF OK 


998 

003450 

104000 



HLT 


EXTRA BIT SET IN CSR 


999 









1000 

003452 

005077 

1 75642 


CLR 

acsR 

CLEAR BIT14 


1001 

003456 

032777 

040000 

175634 

BIT 

#8IT14,aCSR 

CHECK THAT BIT14 IS CLEARED 


1002 

005464 

001401 



BEQ 

.♦4 

BRANCH IF OK 




ZZ-CZDJA-F-C DjII LOGIC TEt-TS 
CZDjAF.PII P6-FE8-79 15:41 

1003 005466 104000 

’004 

1005 0034 7C 104400 


B 3 

MAC V 11 3QA( 1052) 26-FE8-79 15:47 PAGE 2 8 

TST10: TEST 8IT14 OF CSR 


SEO 0027 


; CSR BIT14 FAILED 10 CLEAR 


SCOPE 


1013 

003472 

012777 

000004 

175620 

TST11 : 

MOV 

#BIT2. 

acsR 

1014 

003500 

005005 




CLR 

R5 


1015 

003502 

052777 

000010 

175610 


BIS 

#81 T3, 

acsR 

1016 

003510 

017701 

1 75604 


IS: 

MOV 

acsR, 

#8IT3. 

R1 

1017 

003514 

032701 

000010 



BIT 

PI 

1018 

003520 

001401 




BEQ 

.♦4 


’019 

003522 

104001 




HLT + 1 



1020 









1021 

003524 

032701 

000020 



BIT 

#81 T4. 

R1 

1 022 

003530 

001403 




BEQ 

2$ 


1023 

003532 

105305 




DECS 

R5 


1024 

003534 

001 365 




BNE 

1$ 


1025 

003536 

104001 




hlt+i 



1026 









1027 

003540 

022701 

000004 


2$: 

CMP 

#81 T2. 

R1 

1028 

003544 

001401 




BEQ 

.♦4 


1029 

003546 

104001 




HLT + 1 



1030 









1031 









1032 

003550 

052777 

000001 

175542 


BIS 

#81 TO. 

acsR 

1033 

003556 

01 7701 

175536 



MOV 

acsR. 

R1 

1034 

003562 

032777 

000001 

175530 


BIT 

#8IT0, 

acsR 

1035 

003570 

001001 




BNE 

.♦4 


1C36 

003572 

104001 




hlt+i 



1037 









1038 

003574 

022777 

00C005 

175516 


CMP 

#5, 

acsR 

1059 

003602 

001401 




BEQ 

.♦4 


1040 

003604 

104001 




HLT + 1 




TEST 11: TEST T HAT RECEIVER ENABLE (81 TO OF THE CSR) CAN BE SET 

AND CLEARED. AND THAT CLEAR MOS (81 T3) IS WRITE ONL V . 
PRO0AB1 E FAULTY LOGIC: M7285 (D2-2) E26.E36.E7.E24 , (D2-8) E17.E14.E15 


MOV #81 T2. aCSR ;SET MAINTENANCE MODE (81 T2; 

CLR R5 ;SET UP COUNTER 

BIS #81 T3. aCSR ;SET CLEAR MOS (8IT3) 

MOV aCSR, R1 .-SAVE CSR 

BIT #81 T3, PI .-CHECK CLEAR MOS (81 T3) 

BEQ . *4 .-BRANCH IF OK 

HLT + 1 .-CLEAR MOS (8IT3) SET (WRITE-ONLY) 

;R1 = CONTENTS OF CSR 
BIT #81 T4. R1 .-CHECK CLEAR MOS FLAG 

BEQ 2$ .-BRANCH IF CLEARED 

DEC8 R5 .-WAIT FOR MOS TO CLEAR 

BNE H .-BRANCH IF MORE TIME 

HLT + 1 ; CLEAR MOS FLAG (8IT4) FAILED TO CLEAR 

;R1 = CONTENTS OF CSR 

CMP #81 T2. R1 .-CHECK THAT ONLY MAINTENANCE BIT SET 

BEQ . *4 .-BRANCH IF OK 

HLT + 1 .-CLEAR MOS CLEARED MAINTENANCE 

; OR SET OTHER CSR BITS 
;R1 = CONTENTS OF CSR 

BIS #81 TO. aCSR .-SET RECEIVER ENABLE 

MOV aCSR. R1 .-SAVE CSR 

BIT #8IT0, iCSR .-CHECK THAT RECEIVER ENABLE SET 

BNE .*4 .-BRANCH IF OK 

HLTO .-RECEIVER ENABLE FAILED TO SET 

;R1 = CONTENTS OF CSR 

CMP #5, aCSR .-CHECK REST OF CSR 

BEQ . ♦4 .-BRANCH IF OK 

HLT+1 ;CSR ERROR 

;R1 = CONTENTS OF CSR 

IF THE TTY MODULE IS BEING USED AM) DONE (BIT?) IS SET. 

THE ERROR COULD BE DUE TO MAINTENANCE OR CLEAR MOS NOT WORKING. 


,-NOTE: 


1044 

003606 

042777 

000001 

175504 

BIC 

#8IT0. 

ac$R 

CLEAR RECEIVER ENABLE 

1045 

003614 

017701 

175500 


MOV 

acsR. 

R1 

SAVE CSR 

1046 

003620 

022777 

000004 

175472 

CMP 

#81 T2. 

acsR 

CHECK CSR 

1047 

003626 

001401 



BEQ 

. +4 


BRANCH IF OK 

1048 

003630 

104001 



HLT + 1 



RECEIVER ENABLE DIDN'T 

1049 








OR OTHER CSR BIT SET 

1Q5C 








R1 = CONTENTS OF CSR 

1051 









1052 

003632 

1 04400 



SCOPE 





TEST 12: TEST THAT CSR RESPONDS PROPERLY TO BYTE COMMANDS 

PROBABLE FAULTY LOGIC: M7285 (D2-4) E47 



ZZ-CZDJA-F-0 

DJ 1 1 LOGIC TESTS 

MACYll 30A ( 1052) 26- 

C 3 

FEB-79 15.47 PAGE 

29 



CZDJAF . 

P 1 1 

?6- F EB-79 

15:41 


TST12: 

TEST 

BYTE ADDRESSING OF 

SR 


Sc Q 0028 

1059 

003634 

012777 

052506 

175456 

TST12: 

MOV 

#052506, 3CSR 

SET TES1 NUMBER IN CSR 



1060 

003642 

105077 

175452 



CLRB 

3CSR 

CLR EVEN BYTE 



1061 

003646 

017701 

175446 



MOV 

SIC SR, R 1 

SAVE CSR 



106? 

003652 

022701 

052400 



CMP 

#052400, R1 

CHECK CSR 



1063 

003656 

001401 




BEO 

. +4 

BRANCH IF OK 



1064 

003660 

104001 




HL T>1 


EVEN BYTE CLR FAIL FD ON CSR 



1065 








R1 = CONTENTS OF CSR 



1066 

003662 

012777 

052506 

175430 


MOV 

#052506, 3CSR 

SET TEST NUMBER IN f SR 



106 7 

003670 

00523 7 

001320 



INC 

CSR 

INC TO ODD BYTE 



1068 

003674 

105077 

175420 



CLRB 

3CSR 

FLR ODD BYTE 



1069 

003700 

005337 

001320 



DEC 

CSR 

RESTORE TO EVEN 



1070 

003704 

017701 

175410 



MOV 

3CSR. R1 

SAVE CSR 



1071 

003710 

022701 

000106 



CMP 

#000106. R1 

CHECK CSR 



1072 

003714 

001401 




BEQ 

.-••4 

BRANCH IF OK 



1073 

003716 

104001 




HL T + 1 


ODD BYTE Cl R FAILED ON CSR 



1074 








R1 = CONTENTS OF CSR 



1075 











1076 

003720 

1 04400 




SCOPE 





1077 
i n?fl 











1 \)f o 











1079 





TEST 

13: 

TEST THAT THE BI' 

5 AND BIC INSTRUCTIONS SET AND CLEAR R/U 


1080 







BITS OF CSR 




1081 





: PROBABLE FAULTY LOGIC: M7285 (D2-4) E47 








. - - - ^ 






l \JQc 





m m m m m 






1083 











1084 

003722 

005077 

175372 


r ST13: 

CLR 

acsR 

CLEAR THE CSR 



1085 

003726 

017701 

175366 



MOV 

8CSR. R1 

CHECK AND SAVE CSR 



i 1086 

003732 

001401 




BEQ 

. *4 

BRANCH IF CLEARED OK 



1087 

003734 

104001 




HLT + 1 


RESET FAILED TO CLR CSR 



1088 











1089 

003736 

052777 

052506 

175354 


BIS 

#052506. 

iCSR ;SET ALL R/U BITS OF 

CSR 


1090 

003744 

022777 

052506 

175346 


CMP 

#052506. 

DC SR .-CHECK THAT THEY GOT 

SET 


1091 

003752 

001401 




BEQ 

. *4 

•BRANCH IF OK 



1C92 

003754 

104000 




HLT 


;REG FAILED CMP 



1093 











1094 

003756 

042777 

052506 

175334 


BIC 

#052506, 

DC SR .-CLEAR CSR 



1095 

003764 

01 7701 

175330 



MOV 

iCSR. R1 

CHECK AND SAVE CSR 



1096 

003770 

0C1401 




BEO 

.♦4 

BRANCH IF CLEARED OK 



1097 

003772 

104001 




HLT+1 


CLR FAILED TO CLR CSR 



1098 











1099 

003774 

104400 




SCOPE 





1100 
i mi 











.1 U 1 
1102 





■TEST 

14: 

TEST BITS OF TCR FOR READ/WRITE CAPABILITY 



1103 





PROBABLE FAULTY LOGIC: M7285 (D2-2) ALL. (D2-3) E8.E20.E21 

.E43.E41 


1104 






******* 

******************* 




1105 











1106 

003776 

012777 

1 77777 

175320 

T S T 1 4 : 

MOV 

#177777, STCR 

;SET ALL BITS OF TCR 



1107 

004004 

01 7701 

175314 



MOV 

8TCR, R1 

CHECK AND SAVE TCR 



1108 

004010 

022701 

1 77777 



CMP 

#1 77^77. R1 

,-CHECK THAT ALL THE BITS ARE 

SET 


1109 

004014 

001401 




BEQ 

.♦4 

; BRANCH IF OK 



1110 

004016 

104001 




hlt*i 


’BIT(S) OF TCR FAILED TO SET 



1111 











1112 

004020 

005077 

175300 



CLR 

STCR 

.-CLEAR TCR 



1113 

004024 

01 7701 

175274 



MOV 

3TCR. R1 

•CHECK THAT IT CLEARED AND SAvE 


1 1 14 

004030 

001401 




BEQ 

. *4 

•BRANCH IF CLR 
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T ST 1 4 : TEST 

READ/WRITE BITS OF 

1 

CR 

StO 0029 

1115 

004032 

104001 



HLT + 1 



BIT(S) OF TCR FAILED TO CLEAR 


1116 










1117 

004034 

104400 



SCOPE 





1118 










1119 





•♦I***********************-*********************************************** 


1120 





TEST 15: 

TEST THAT TCR RESPONDS PROPERLY TO BYTE COMMANDS 


1121 





•PROBABLE FAULTY LOGIC: M7285 

(D2-3) E41 


1122 










1123 










1124 

004036 

012777 

177777 

175260 

rST15: MOV 

#1 77777, 3T CR 


SET TEST NUMBER IN TCR 


1125 

004044 

105077 

175254 


CLR8 

3TCR 


CLR EVEN BYTE 


1126 

004050 

017701 

175250 


MOV 

3TCR. R1 


SAVE TCR 


1127 

004054 

022701 

177400 


CMP 

#177400.R1 


CHECK TCR 


1128 

004060 

001401 



BEG 

. *4 


BRANCH IF OK 


1129 

004062 

104001 



HLT + 1 



EVEN BYTE CLR FAILED ON TCR 


1130 








RI = CONTENTS OF TCR 


1131 

004064 

012777 

177777 

175232 

MOV 

#177777. 3TCR 


SET TEST NUMBER IN TCR 


1132 

004072 

005237 

001 324 


INC 

TCR 


INC TO ODD BYTE 


1133 

004076 

105077 

175222 


CLR8 

3TCR 


CLR ODD BYTE 


1134 

004102 

005337 

001 324 


DEC 

TCR 


RESTORE TO EVEN 


1135 

004106 

017701 

175212 


MOV 

3TCR, R1 


SAVE TCR 


1136 

004112 

022701 

000377 


CMP 

#000$77,R1 


CHECK TCR 


1137 

004116 

001401 



BEQ 

.♦4 


BRANCH IF OK 


1138 

004120 

104001 



HLT+1 



ODD BYTE CLR FAILED ON TCR 


1139 








RI = CONTENTS OF TCR 


1140 










1141 

004122 

104400 



SCOPE 





1142 










i l*t 5 










1144 





TEST 16: 

TEST THAT THE BIS AND BIC INSTRUCTIONS SE T AND CLEAR R/W 


1145 






BITS OF TCR 




1146 





PROBABLE FAULTY LOGIC: M7285 

(D2-3) E47 


• \H( 










1148 










1149 

004124 

005077 

175174 


ST16: CLR 

iTCR 


CLEAR THE TCR 


1150 

004130 

01 7701 

175170 


MOV 

8TCR. R1 


CHECK AND SAVE TCR 


1151 

C04134 

001401 



BEG 

.♦4 


BRANCH IF CLEARED OK 


1152 

004136 

104001 



hlt*i 



RESET FAILED TO CLR TCR 


H53 










1154 

004140 

052777 

177777 

1 75156 

BIS 

#177777. 


iTCR ;SET ALL R/U BITS OF TCR 


1155 

004146 

022777 

1 77777 

175150 

CMP 

#177777. 


ITCR .-CHECK THAT THEY GOT SET 


1156 

004154 

001401 



BEO 

.♦4 


.-BRANCH IF OK 


1157 

004156 

104000 



hlt 



;REG FAILED CMP 


1158 










1159 

004160 

042777 

1 77?77 

175136 

BIC 

#1 77777. 


iTCR .-CLEAR TCR 


1160 

004166 

01 7701 

175132 


MOV 

stcr. ri 


CHECK AND SAVE TCR 


1161 

004172 

001401 



BEO 

.+4 


BRANCH IF CLEARED OK 


1162 

004174 

104001 



HLT + 1 



CLR FAILED TO CLR TCR 


1163 










1164 

004176 

104400 



SCOPE 





1165 

004200 

012737 

000001 

001346 

MOV 

#1. TIMER 


.•INITIALIZE TIMER 


1166 

004206 

012737 

004214 

015250 

MOV 

#.♦6, LAD 


.-RESET LOOP ADDRESS 


1167 







* 



? lOo 










1169 





TEST 17: 

TEST THAT TRANSMIT READY (BIT'S OF CSR) SETS AND CLEARS 


1170 






WHEN TCRO IS 

SET AND CLEARED. 




77-C7DJA-F-0 DJ" LOGIC TF STS 

MAC Vi 1 

30A( 10521 26-FE8-79 15 

E 3 

47 PAGE 

31 

CZDJAF . 

P11 26-FEB-79 

15:41 


TST17: 

TEST TRANSMIT READY 

SEG 0030 

1171 







ALSO CHECK THAT 

THE RIGHT LINE NO. (0) APPEARS IN TBuFF , 

ii?2 





.-PROBABLE FAULT 1 * 

LOGIC: 

M7285 (D2-5) ALL, <D2-6) E23, E32, F33, E49, (D2-21 F3, El 

■* 1 75 





;******************»****•«»»•»»»»•<«**»»*»’'**************** * * * * ** 1 

1 1 74 

1175 

004214 

012777 

000400 

1 75076 

TST17: 

MOV 

#400, 

8CSR 

; SE T XMTR SCAN ENABLE 

1176 

004222 

052777 

000001 

175074 


BIS 

#81 TO, 

8TCR 

.-SET XMTR CONTROL BIT, I INF 0 

1177 

004230 

005000 




CLR 

RO 


.-SET UP WAIT COUNTER 

1178 

004232 

017701 

175062 


It: 

MOV 

olCSR. 

R 1 

.-CHECK AND SAVE YMTR READY 

1179 

004236 

100404 




BMI 

2S 


; BRANCH IF SET OK 

M80 

004240 

005200 




INC 

RO 


; WAI T A WHILE 

1181 

004242 

001373 




BNE 

It 



1182 

004244 

104001 




hlt + i 



; XMTR READY FAILED TC SET 

1 1 85 
1184 

004246 

000416 




BR 

3t 


.-SKIP LINE # CHECK ON ERROR 

1185 










1 186 

004250 

050037 

001 346 


2$: 

BIS 

RO, 

TIMEP 

.-SET UP TIMER 

1187 

004254 

017701 

175046 



MOV 

3T8UF , 

R1 

.-SAVE LINE NUMBER 

1188 

004260 

105001 




CLRB 

R1 



1189 

004262 

000301 




SWAB 

R1 



1190 

004264 

022701 

000000 



CMP 

#0. 

R1 

; CHECK THAT THE XMTR STOPPED ON LIAC 0 

1191 

004270 

001401 




BEC 

.•*•4 


.-BRANCH IF OK 

1192 

004272 

104001 




HLT + 1 



.-WRONG LINE NLMBER APPEARED IN T6UF 

1193 

1194 

004274 

017702 

1 75020 



MOV 

iCSR. 

H2 

; CHECK AND SAVE XMTR READ* 

1195 

004300 

100401 




BMI 

,«4 


.-BRANCH IF OK 

1196 

004302 

104002 




HI T+2 



.-READING THE T8UF CLEARED XMTR READY 

1197 

1198 

004304 

042777 

000001 

175012 

3$: 

BIC 

#8ito. 

8TCR 

; CLR XMTR CONTROL BIT, LINE C 

1199 

004312 

01 7701 

1 75002 



MOV 

SCSR. 

R1 

.CHECK A NO SAVE XMTR READY 

1200 

004316 

100001 




BPL 

.♦4 


.•BRANCH IF OK 

1201 

004320 

104001 




hlto 



.-XMTR READY FAILED TO CLEAR WHEN 

1202 









XMTR CONTROL FOR LINE 0 WAS CLEARED 

1203 

1204 

004322 

104400 




SCOPE 




1205 










1206 










1207 

1208 





'•TEST 

20: 

TEST THAT TRANSMIT READY (BIT15 OF CSR) SETS AND CLEARS 

1209 







WHEN EACH TCR 81 T IS SET AND CLEARED. 

1210 







ALSO CHECK THAT 

THE RIGHT LINE NO. APPEARS IN TBUFF. 

1211 





.PROBABLE PAUL TV LOGIC: 

M7285 

(D2-5) ALL. (D2-6) E23. E32. E33. E49. (D2-2) E3. El 

1212 





• 





1213 

1214 

004324 

012777 

000400 

174766 

TST20: 

MOV 

#400, 

acsR 

;SET XMTR SCAN ENABLE 

1215 

004332 

005001 




CLR 

R1 



1216 

004334 

012704 

000001 



MOV 

#1. 

R4 

.SET UP MARKER 

7217 

004340 

050477 

174760 


4$: 

BIS 

R4. 

8TCR 

;SET XMTR CONTROL BIT. EACH i INE 

1218 

004344 

005000 




CLR 

RO 


.-SET UP WAIT COUNTER 

1219 

004346 

017702 

174746 


1$: 

MOV 

acsR, 

R 2 

.-CHECK AND SAVE XMTR READY 

1220 

004352 

100404 




BMI 

2$ 


.•BRANCH IF SET OK 

1221 

004354 

005300 




DEC 

RO 


.-WAIT A WHILE 

7222 

004356 

001373 




BNE 

It 



1223 

004360 

104002 




HLT+2 



; XMTR READY FARED TO SE’ 

7224 









;R1=L INE # 

1225 









;R2=CSR 

7226 
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MACY11 30A<1052> 26-FEB-79 15:47 PAGE 32 

TST20: TF ST TRANSMIT READY 


SfO 0031 


1227 

’228 

1229 

1230 

1231 

1232 

1233 

1234 

1 235 

1 236 

1237 
• 238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 
1263 


004362 000414 

004364 050037 001 346 

004370 017702 1 74732 

004374 000302 
004376 020201 
004400 001401 
004402 104002 


BR 

3$ 


.-SKIP LINE M CHECK ON ERROR 

BIS 

RO. 

TIMER 

; SE T UP TIMER 

MOV 

3T8UF , 

R2 

.-SAVE LINE NUMBER 

SWAB 

R2 



CMP 

R2. 

R1 

; CHECK THAT THE XMTR STOPPED ON RIGHT t INF 

BED 

.>4 


; BRANCH IF OK 

HLT+2 



.-WRONG LINE NUMBER APPEARED IN TBUF 


004404 

017703 

174710 


MOV 

acsR. 

R3 

004410 

100401 



BMI 

.♦4 


004412 

104003 



HLT + 3 



004414 

040477 

1 7-704 

3i: 

61 C 

R4. 

ST CR 

004420 

01 7702 

1 74674 


MOV 

acsR. 

R 2 

004424 

100001 



BPl 

.♦4 


004426 

104002 



HL T *2 



004430 

005201 



INC 

R1 


004452 

006304 



ASL 

R4 


004434 

103341 



BCC 

4S 


004436 

104400 


• ** * * 

SCOPE 

******** 



;R1=LINE #( SHOULD Bt> 
;R2=LINE # (TBUF; 


CHECK AND SAVE XMTR READY 
BRANCH IF OK 

READING THE TBUF CLEARED XMTR READY 

CLR XMTR CONTROL BIT. EACH LINE 
CHECK AND SAVE XMTR READY 
BRANCH IF OK 

XMTR READY FAILED TO CLEAR WHEN 

XMTR CONTROL FOR LINE .LINE WAS ClEARED 
R1 = LINE » 

R 2 - CONTENTS OF CSR 

INC LINE COUNTER TO NEXT LINE 
SHIFT MARKER TO NEXT LINE 
BRANCH IF NOT LAST LINT 


TEST 21: TEST THAT MASTER TRANSMIT SCAN ENABLE (CSR BIT 8) ON A 0 

DISABLES TRANSMITTER READY (CSR BIT 15) 

WHEN TCR BIT, LINE 0 IS SET. 

PROBABLE FAULTY LOGIC: M7285 (D2-6) E49.E23.E32.E33 


1265 

004440 

005077 

1 74654 


TST21 : 

CLR 

acsR 

1266 

C04444 

052777 

000001 

1 74652 


6IS 

ABITO.BTCR 

1267 

004452 

013700 

001346 



MOV 

TIMER, RO 

1268 

004456 

017701 

1 74636 


IS: 

MOV 

BCSR,R1 

1269 

004462 

100002 




BPL 

2S 

1270 

004464 

104001 




HLT*1 

iJ 

1271 

004466 

000402 




BR 

1272 

004470 

005300 



2$: 

DEC 

RO 

1273 

1274 

1275 

004472 

001371 




BNE 

IS 

0C4474 

052777 

000400 

174616 

3S: 

BIS 

#400,SCSR 

1276 

004502 

005000 




Cl R 

RO 

1277 

004504 

017701 

174610 


4$: 

MOV 

acsR, R1 

■278 

004510 

100403 




BMj 

5S 

1279 

004512 

005200 




INC 

RO 

1 280 

004514 

001373 




BNE 

4$ 

1281 

004516 

104001 




HL T »1 



CLEAR CONTROL STATUS 
SET XMTR CONTROL BIT. LINE 0 
GET TIMER FROM PREVIOUS TEST 
CHECK AND SAVE XMTR READY 
BRANCH IF NOT SET 
XMTR READY SET WITHOUT 
MASTER TRANS SCAN ENABLE 
WAIT A WHILE 
AND CHECK AGAIN 

SET MASTER TRAN SCAN ENABLE 

CHECK AND SAVE XMTR READY 


; TRAN READY NEVER CAME UP 
; TCR BIT WAS SE T FIRST 
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TST21: 

TEST 

MASTER TRANSMIT SCAN ENABLE 

► ' 

1283 








.-THEN MASTER TRAN SCAN ENABLE 

1 

1284 

004520 

042777 

000001 

174576 

5$: 

BIC 

#81 TO, 3TCR 

.•CLEAR IT OUT 


1285 

004526 

01 770' 1 

174566 



MOV 

3CSR. R1 

; CHECK AND SAVE TRAN READY 


1286 

004532 

100001 




BPL 

. +4 

.•BRANCH IF OK 


1287 

004534 

104001 




hl r+i 


; TRAN READY DIDN’T CLEAR. 


1288 










1289 

004536 

1 04400 




SCOPE 




1290 










1291 










292 










1293 





; T 6 S 1 2i 

. 

TES T TRANSMIT 

INTERRUPT LEVEL 


1294 










1295 







THIS TESTS ALL 

INTERRUPT LEVELS. THIS TEST WILL 


1296 






TEST 

ALL DEVICES WHICH 

ARE SPECIFIED DURING QUESTIONING. 


1297 










1298 





• 

ERROR 

PRINT OUT IS AS 

FOLLOWS:::: 


1299 






AD DR 

DJADR RO R1 



1300 










1301 





<* 

ADDR= 

ADDRESS OF ERROR HL T 


1302 






DJADR 

= CSR ADDRESS OF 

D J 1 1 UNDER TEST 


1303 






R1= BR LEVEL FOR DJl 1 

TO ALLOW INTR 


1304 






R2= BR LEVEL WHERE ERROR OCCURED 


1305 









1 

1306 





;PR08A8LE FAULTY LOGIC: M7821 

WIRING. PROPER PRIORITY CHIP 


1 507 





, " " * w w m 





1308 










1309 

004540 

012777 

004656 

174566 

TST22: 

MOV 

#INTR1 .axMTVEC 

; SET UP XMTR INTERRUPT VECTOR 


1310 

004546 

012777 

000340 

174562 


MOV 

#340.iXMTLVL 

; AT LEVEL 7 


1311 

004554 

012737 

000010 

01 7214 


MOV 

#10,PRIOLO 

; LOAD BR7*1 INTO BR TEST LEVEL 


1312 

004562 

012737 

000005 

017226 

AGAINl: 

MOV 

#5,CT 

; LOADS COUNTER 5 ROL -BR PRIOT 


1313 

004570 

005337 

017214 



DEC 

PRIOLO 

; START TEST BR7, THEN 8R6.BR5. . .E TC . 


1314 

004574 

013737 

01 72U 

017216 


MOV 

PRIOLO.NOW 

; LOAD PRE-ROL-ED DECIMAL PR 10 


1315 

004602 

004737 

014464 



JSR 

PC. BRSET 

; GO TO SUBROUTINE TO :::::: 


1316 








; LOAD BR INTR LEVEL OF DJ11 


1317 








; (LEVEL )= DECIMAL #<0 TO 7) 


"'318 








; (MASK)= OCTAL #(0 TO 340) 


1319 








; (0.40.100.140,200.240.300.340) 


1320 








; (NOW)= OCTAL #<0 TO 340) AS 


1321 








; MASK. BUT CURRENTLY TESTING 


1322 

004606 

042737 

000340 

177776 


BIC 

#340.a#ps 

; CLEAR PS LEVEL 


1323 

004614 

053737 

017216 

177776 


81 S 

Nou.arps 

; SET PS TO CURRENT TEST LEVEL 


1324 

004622 

012777 

040400 

174470 


MOV 

#040400, ac SR 

; SET TRAN MASTER IN*. ENABLE 


1325 

004630 

012777 

000001 

1 74466 


MOV 

#BIT0. STCR 

; SET TRAN CONTROL BIT. LINE 0 


1326 

004636 

017701 

1 74456 


WAIT1: 

MOV 

3CSR. R1 

; WAIT 


1327 

004642 

100375 




BPL 

WAIT1 



1528 










1329 

004644 




NINTP1 : 





1330 






; IF YOU ARE HERE NO INTR OCCURED 


1331 










1332 

004644 

023737 

017216 

017220 


CMP 

NOW. MASK. 

; IS THIS AN ERROR????? 


1333 

004652 

002407 




BLT 

ERROR 1 

; BRANCH IF YES 


1334 

004654 

000417 




BR 

thrui 

; IF NO. GO ON TO NEXT BR 


1335 










1536 

004656 




IN1R1 





1337 





; IF YOU 

ARE HERE AN INTR OCCURED 


133 8 











77-CZD. 

A-r-C DJll .OGIC TESTS 

MACYll 

30A( 1052) 26 

H 3 

-FE8-79 15:47 PAGE 3- 

C7DJAF. 

P1 1 26-FEB-79 

15:41 


1 

ST 22: 

TEST 

TRANSMIT INTERUPT LEVEL SEO 0033 

13?9 

004656 

022626 





CMP 

(SP)+.(SP)* ; CLEAN UP THE STACK 

1340 

004660 

02373? 

017216 

017220 



CMP 

NOW, MASK ; IS THIS AN ERROR????? 

1341 

004666 

002001 





BGE 

ERROR 1 ; BRANCH IF ERROR 

1342 

004670 

0004 I 1 





BR 

THRU1 ; IF NO, SEE JF ALL BR LEVELS TESTED 

1 343 

1344 

004672 




E 

RR0R1 

: ; IF 

YOU ARE HERE . THEN SOMETHING IS WRONG 

1345 







• 

ERROR. 

i 5**o 
134? 

004672 

0101-6 





MOV 

R\-(6) ,’PUSH R1 ON STACK 

1348 

004674 

010246 





MOV 

R2.-(6) ;PUSH R2 ON STACK 

1349 









1350 

004676 

013701 

017220 




MOV 

MASK, R1 ; R1=8R LEVEL ALL O'WED 

1351 








; (BR BITS OF PSW) 

1352 

004702 

013702 

017216 




MOV 

NOW. R2 ; R2=8R LEVEL OF ERROR 

1353 








; (BR BITS OF PSW) 

1354 









1355 

004706 

104002 





hlm 

2 ; REPORT ERROR* REG. ’,2 

1556 









1357 

004710 

012602 





MOV 

(6)+,R2 ;POP STACK INTO R2 

! 1358 

004712 

012601 





MOV 

(6)*.R1 ;POP STACK INTO R1 

->359 









1360 

004714 





rHRUl : 



1361 

004714 

005077 

174404 




CLR 

ST CR 

1362 

004720 

005077 

174374 




uLR 

oiCSR 

1363 

004724 

005737 

017216 




TST 

NOW ; TEST IF LAST BR WAS CHECKED 

1364 

004730 

001314 





BNE 

AGAIN1 ; BACK TO TEST NEXT INTR LOWER 

1365 








; (NOW) - 0 

1 366 









1367 

00473? 

013777 

C01336 

174374 

1 

‘ND22: 

MOV 

XMTLVL.SXMTVEC ; RELOAD AND CLEAN UP 

1368 

004740 

012777 

000004 

1 74370 



MOV 

#IOT. SXMTLVL 

1369 

004746 

042737 

000340 

177776 



BIC 

*340.a*PS 

1370 









1371 

004754 

104400 





SCOPE 

1372 









1573 

004756 

005037 

001 346 




CLR 

TIMER .-INITIALIZE TIMER 

1374 

004762 

012737 

004770 

015250 



MOV 

#.*6. LAD .-RESET LOOP ADDRESS 

1375 









1376 









1377 






TEST 

23: 

TEST THAT LINE 0 CAN TRANSMIT AND 

1378 








RECEIVE A CHARACTER. (3 77) 

1379 







11: 

CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE TIME. 

1380 







3S: 

CHECKS THAT NO ERRORS IN FI/FO 

1381 







4$: 

CHECKS THAT RIGHT LINE # (0) IN FI/FO 

1382 







5$: 

CHECKS FOR RIGHT CHARACTER LENGTH 

1385 







6$: 

CHECKS THAT CORRECT DATA WAS RECEIVED 

1384 







7$: 

CHECKS THAT CHARACTER PRESENT CLFARS 

1385 







8$: 

CHECKS THAT DONE CLEARS 

1386 






•PR0BA8I E FAULTY LOGIC: M7285 (02-7) ALL; M7279 ALL; UART CARD D03 SERIES 

1387 






************************************************************************ 

1388 









1389 








INITIALIZE 

1390 







DEVICE'TSR' REGISTER 

1391 








SET: 

1392 

004770 

004737 

0(4600 



TST23: 

JSR 

PC, SAINITD ; 8 1 T 2 = MAINTENANCE 

1393 








;8i T 3 - CLEAR MOS 

1394 








; 8 1 T 8 = MASTER XMTR SlAN tNH 
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TST23: 

TEST 

ALL OF LINE 0 TRANSMIT AND RECEIVE LOGIC 

SfC. 

1395 





.-WAIT 

FOR MOS 

TO CLEAR 



1396 







J 

>ET: 


1397 








81 TO = RECEIVER ENABLE 


1398 










1399 

004774 

052777 

000001 

17'322 


BIS 

#81 TO. a)T CR 

SET XMTR CONTROL BIT. LINE 0 


HOC 

005002 

017701 

174312 


LOP23: 

MOV 

3CSR, R1 

WAIT FOR XMTR READY 


1401 

005006 

100375 




BPL 

L0P23 



1402 

005010 

012777 

000377 

174310 


MOV 

#3 77, 3TBUF 

SEND A RU80UT 


1403 

005016 

005000 




CLR 

RO 

CLEAR COUNTER 


1404 

005020 

105305 



1$: 

DECB 

R5 

SHORT WAIT LOOP 


1405 

005022 

001376 




BNE 

1$ 



1406 

005024 

017701 

174272 



MOV 

3RBUF.R1 

WAIT FOR CHAR. PRES. 


’40 7 

005030 

100405 




BMI 

3$ 

BRANCH WHEN FOUND 


1408 

005032 

005200 




INC 

RO 

TIME COUNTER 


1409 

005034 

001371 




BNE 

1$ 

BRANCH IF NOT TIME-OUT 


1410 

005036 

017702 

174256 



MOV 

3CSR, R2 

SAVE CSR 


1411 

005042 

104002 




HL T +2 


CHARACTER READY DIDN’T SET 


1412 








R1 = CONTPNTS OF RBU F 


1413 








R 2 = CONTENTS OF CSR 


1414 

005044 

050C37 

001346 


3$: 

BIS 

RO. TIMER 

SAVE THE TIMER 


1415 

005050 

032701 

070000 



BIT 

#70000. R1 

CHECK FOR ERROR BITS 


1416 

005054 

00140’ 




6EQ 

.+4 

BRANCH IF NONE 


1417 

005056 

104001 




HLT+1 


ERROR IN RECEIVtD CHAR 


1418 








R1 = CONTENTS OF R8U r 


1419 








81 T14=UART OVERRUN 


1420 








BIT13=FRAMING ERROR 


1421 








81 T12=PARI TY ERROR 


1422 

005060 

010102 



4$: 

MOV 

R1, R2 

DUPLICATE DATA 'WORD 


1423 

005062 

042702 

1 70377 



BIC 

#1 70377.R2 

MASK LINE# 


1424 

005066 

000302 




SUAB 

R 2 

LINE # IN LOW BYTE 


1425 

005070 

122702 

000000 



CMP8 

#0. . R2 

CHECK LINE # 


1426 

005074 

001401 




BEO 

.+4 

BRANCH IF OK 


1427 

005076 

104001 




HLT+1 


WRONG LINE # RECEIVED 


1428 








R1 = CONTENTS OF RBUF 


1429 








8ITS8-11 = LINE # 


1430 

005100 

117702 

174260 


5$: 

M0V8 

3DJLEN. R 2 

GET MASK OF CHARACTER 


1431 

005104 

130201 




BITS 

R2. R1 

CHECK CHAR LENGTH. 


1432 

0C5106 

001401 




BEO 

.+4 

BRANCH IF OK 


1433 

005110 

104002 




HLT+2 


WRONG CHARACTER LENGTH 


1434 








R1--DATA FROM FI/FO 


1435 








R2=mSK (BITS SET NOT EXPECTED) 


1436 

005112 

105102 



6$: 

COMB 

R2 

REVERSE THE MASK 


1437 

005114 

120102 




CMP8 

R1. R 2 

CHECK THE ACTURAL DATA 


1438 

005116 

001401 




BEO 

.+4 

BRANCH IF OK 


1439 

005,20 

104002 




HIT *2 


WRONG CHAR LEN OR DATA ERROR 


1440 








R1=DATA FROM FI/FO (COMPLETE WORD) 


1441 








R2=DATA (LOW BYTE) EXPECTED 


1442 

005122 

017701 

174174 


7%: 

MOV 

3R8UF . R1 

READ FI/FO 


1443 

005126 

100001 




BPL 

.+4 

BRANCH IF CHAR PRESENT NOT SET 


1444 

005130 

104001 




HLT + 1 


CHARACTER PRESENT STAYED SE T 


1 445 








R1 = CONTENTS OF RBUF 


1446 

005132 

017701 

174162 


8$: 

MOV 

BCSR, R1 

SAVE THE CSR 


1447 

005136 

022701 

100405 



CMP 

#100405. R1 

CHECK 1HE CSR 


1448 

005142 

001 4Ci 




BEO 

.+4 

BRANCH IF OK 


1449 

005*44 

104001 




HLT + 1 


DONE DIDN'I CLEAR OR OTHER (SR ERROR 


1450 








R1 = CONTENTS OF CSR 
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1451 

1452 
■453 
'454 
1455 
145' 

1457 

1458 

1459 

1460 

1461 
146? 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 


005146 005077 174152 
005152 005077 174142 
005 1 56 104400 
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TST23: TEST ALL OF LIhE 0 TRANSMI i AND RECEIVE LOGIC 

CLR 3TCR .-CLEAR TCR 

CLR aCSR .-CLEAR CSR 


SCO 0055 


005160 004737 014600 


005164 

005172 

005176 

005200 

005206 

005210 

005212 

005214 

005220 

00522? 

005224 

005226 

005232 


005234 

005240 

005244 

005246 


005250 

005252 

005256 

005260 

005264 

005266 


TEST 24: It ST THAT LINE 1 CAN TRANSIT AND 

RECEIVE A CHARACTER. (377) 

1$: CHECKS THAT CHAR PRESENT IS IN FI/ c O IN REASONABLE TIME. 

3t: CHECKS THAT NO ERRORS IN fl/FO 
4$: CHECKS THAT RIGHT LINE # CD IN FI/FO 
5$: CHECKS FOR RIGHT CHARACTER LENGTH 
6$: CHECKS THAT CORRECT DATA WAS RECEIVED 
7 t: CHECKS THAT CHARACTER PRESENT CLEARS 
8$: CHECKS THAT DONE CLEARS 

PROBABLE FAULTY LOGIC: M7285 (D2-7) ALL; M7279 ALL; UART CARD D03 SERIES 


INITIALIZE 
DE V I CE"C SR’ REGISTER 


TST24: 


S#INJTD 


052777 

017701 

100375 

012777 

005000 

105305 

001376 

017701 

100405 

005200 

001371 

017702 

10400? 


050037 

032701 

001401 

104001 


010102 

042702 

000302 

1227C2 

001401 

104001 


WAIT FOR MOS TO CLEAR 


000002 

17413? 


BIS 

#81 T1 , BTCR 

174122 


L0P24: 

MOV 

3CSR. Rl 




8PL 

L0P24 

000377 

174120 


MOV 

#377. aTBUF 




CLR 

RO 



1$: 

DECS 

R5 




ONE 

It 

174102 



MOV 

aRBUF.RI 




8M1 

3t 




INC 

RO 




8NE 

IS 

174066 



MOV 

HL T *2 

aCSR. R2 

001346 


3$: 

BIS 

RO. TIMER 

070000 



BIT 

#70000. Rl 




SCO 

HL T*1 

.>4 


170377 

000001 


MOV 

BIC 

SWAB 

CMP8 

BEQ 

HL C* 1 


Rl. R2 
#1^0377.R? 
R? 

#1 . . R? 
.*4 


;8IT2 = MAINTENANCE 

;8I T3 = CLEAR MOS 

;BIT8 = MASTER XMTR SCAN E*fi 

SET: 

;QITO = RECEIVER ENABLE 

.-SET XM T R CONTROL BIT. LINE 1 
.-WAIT FOR XMTR READY 


SEND A RUBOUT 
CLEAR COLWTER 
SHORT WAIT LOOP 

WAIT FOR CHAR. PRES. 

BRANCH WHEN FOUND 
TIME COUNTER 
BRANCH IF NOT TIME-OUT 
SAVE C SR 

CHARACTER READY DIDN’T SET 
R1 = CONTENTS Of R8UF 
R? = CONTENTS OF CSR 
SAVE THE TIMER 
fHECK FOR ERROR BITS 
BRANCH IF NONE 
ERROR IN RECEIVED CHAR 
Rl = CONTENTS OF R8UF 
BIT14-UART OVERRUN 
Bill 3-FRAMING l^ROR 
BIT12=PARITY 
DUPLICATF D' 4D 

MASK LINE# 

LINE # IN LOU bYTE 
CHECK LINE # 

BRANCH IF OK 

WRONG LINE # RECEIVED 
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CZDJAF. 

P11 26-FE8-79 

15:41 



TST?4 : 

TEST 

ALL OF LINE 1 TRANSMIT AND RECEIVE LOGIC 


1507 








;R1 - CONTENTS OF RRJF 


1508 








;8I TS8-1 1 - LINE # 


1509 

005270 

1 1 7702 

1 74070 



it: 

MO ,8 

3DJLEN, R2 ;GET MASK OF CHARACTER 


1510 

005274 

1 30201 





BIT8 

R2, R1 ; CHECK CHAR LENGTH. 


1511 

005276 

001401 





BEQ 

. +4 ;8RANCH IF CK 


1512 

005300 

104002 





HLT+2 

.-WRONG CHARACTER LENGTH 


1513 








; ri=data from f i/fo 


1514 








;R2= MASK (BITS SET NOT EXPECTED) 


1515 

005302 

105102 



< 

>$: 

COMB 

R2 .-REVERSE THE MASK 


1516 

005304 

120102 





CMP8 

R1 . R2 .’CHECK THE ACTURAL DATA 


1517 

005306 

001401 





BEQ 

.♦4 .-BRANCH IF OK 


1518 

005310 

104002 





HLW 

.-WRONG CHAR LEN OR DATA ERROR 


1519 








;R1=DATA FROM FI/FO (COMPLETE WORD 1 

1520 








;R2=DATA (LOW BYTE) EXPECTED 


1521 

005312 

01 7701 

1 74004 



7 l: 

MOV 

iRBUF. R1 .-REAP FI/FO 


1522 

005316 

10000 1 





BPl 

.*4 .-BRANCH IF r MAR PRESENT N0 T ST 


1523 

005320 

104001 





HLT + 1 

.-CHARACTER PRESENT STAVED SET 


1524 








;R1 = CONTENTS OF R8UF 


1525 

005322 

017701 

173772 


1 

}$: 

MOV 

aCSR. R1 .-GAVE THE CSR 


1526 

005326 

022701 

1004C5 




CMP 

#100405, R1 .CHECK THE CSR 


1527 

CC5332 

001401 





BEQ 

.♦4 .-BRANCH IF OK 


1528 

005334 

104001 





HLT + 1 

;DONf DIDN’T CLEAR GR OTHER CSR 

ERROR 

1529 








;R1 = CONTENTS OF CSR 


1530 

005336 

005077 

173762 




CLR 

iTlR .-CLEAR TCR 


1531 

005342 

005077 

173752 




CLR 

aCSR .-CLEAR CSR 


1532 

005346 

10440C 





SCOPE 



1533 










054 










1535 






TEST 

25- 

TEST THAT LINE 2 CAN TRANSMIT AND 


1536 








RECEIVE A CHARACTER. (377) 


1-37 







1$: 

CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE 

TIME. 

1538 







31: 

CHECKS THAT NO ERRORS IN FI/FO 


153Q 







4$: 

CHECKS THAT RIGHT LINE # (2) IN FI/FO 


1540 







51: 

CHECKS FOR RIGHT CHARACTER LENGTH 


1541 







65: 

CHECKS THAT CORRECT DATA WAS RECEIVED 


1542 







75: 

CHECKS THAT CHARACTER PRESENT CLEARS 


1543 







85: 

CHECKS THAT DONE CLEARS 


1544 






PROBABLE FAULTY LOGIC: H7285 (02-7) ALL; M7279 ALL; UART rARD 

D03 SERIES 

1 543 










1546 










1547 








INITIALIZE 


1548 







DE VI CE'XSR’ 'REGISTER 


1549 








SET: 


1550 

005350 

0X737 

014600 



r ST25 : 

JSR 

PC. a#lN!TD ;8IT2 = MAINTENANCE 


1551 








;BIT3 = CLEAR MOS 


1552 








;8IT8 = MASTER XMTR SCAN EN6 


1553 






WAIT 

FOR MOS 

TO CLEAR 


1554 








SET: 


1555 








;BI TO = RECEIVER ENABLE 


1556 










1557 

005554 

052777 

000004 

173742 



BIS 

#81 T?, aTCR ;SET XMTR CONTROL BIT. LINE 2 


1558 

005362 

017701 

173732 



.0P25 

MOV 

aCSR. R1 .‘WAIT FOR XMTR READY 


1559 

005366 

100375 





BPL 

LOP25 


1560 

005370 

012777 

000377 

173730 



MOV 

#377. 8T8UF .-SEND A RUbOUT 


1561 

005376 

005000 





CLR 

RQ .-CLEAR COUNTER 


1562 

005*00 

105305 




1 $. 

DECB 

R5 .-SHORT WAIT LOOP 
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C7DJAF. 

P11 

26-FEB-79 

15:41 

TS725 

TEST 

ALL OF LINE 2 

TRANSMIT AND RECEIVE LOGIC 


SfO 0037 

1565 

005402 

001 576 



0ME 

1$ 




1564 

005404 

017701 

173712 


MOV 

8R8UF ,R1 

.-WAIT FOR CHAR. PRES. 



1565 

C05410 

100405 



BMJ 

l 5 

; BRANCH WHEN FOUND 



1566 

005412 

005200 



INC 

RO 

.■TIME COUNTER 



1567 

005414 

001371 



8NE 

1$ 

.•BRANCH IF NOT TIME-OUT 



1568 

005416 

017702 

173676 


MOV 

a>CSR. R2 

.-SAVE CSR 



1569 

005422 

104002 



HL M2 


.•CHARACTER READY DIDN'T SET 



1570 







, R1 = CONTENTS OF R8UF 



1571 







;R2 = CONTENTS OF CSR 



1572 

005424 

050037 

001 346 

5$: 

BIS 

RO. TIMER 

.-SAVE THE TIMER 



’573 

005430 

C32701 

0700CO 


BIT 

#70000. R1 

.•CHECK FOR ERROR BITS 



1574 

005434 

001401 



OEQ 

. *4 

.•BRANCH IF NONE 



1575 

005436 

104001 



HL Ml 


.•ERROR IN RECEIVED CHAR 



1576 







;R1 = CONTENTS OF RBUF 



1577 







;8I T14=UART OVERRUN 



1578 







;8IT 13-FRAMING ERROR 



1579 







;8IT12=PARITY ERROR 



1580 

005^40 

010102 


4$: 

MOV 

R1, R2 

.•DUPLICATE DATA WORD 



1581 

005442 

042702 

170377 


BIC 

#1 70377.R2 

.-MASK LINE# 



1582 

005446 

000302 



SWAB 

R2 

.-LINE # IN LOW BYTE 



1583 

005450 

122702 

000002 


CMP8 

#2. . R? 

; CHECK LINE * 



1584 

005454 

001401 



BEQ 

. *4 

.•BRANCH IF OK 



1585 

005456 

104001 



HL T ♦ 1 


.-WRONG LINE » RECEIVED 



1586 







;R1 = CONTENTS OF RBUF 



1 >87 







.BITS8-11 = LINE # 



1588 

005460 

1 1 7702 

173700 

5$: 

M0V8 

SDjLEN, R2 

.-GET MASK OF CHARACTER 



1589 

005464 

130201 



BITB 

R2. R1 

; CHECK CHAP LENGTH. 



1590 

005466 

001401 



BFO 

.♦4 

.BRANCH IF OK 



1591 

005470 

104002 



HLM2 


.WRONG CHARACTER LENGTH 



1592 







;R1=DATA FROM FJ/FO 



1593 







;R2=MASK (BITS SET NOT E*PEC T ED> 



1594 

005472 

105102 


65: 

COMB 

R2 

.REVERSE THE MASK 



1595 

005474 

120102 



CMP8 

R1 . R? 

.•CHECK THE ACTURAL DATA 



1596 

005476 

001401 



BEU 

.♦4 

.BRANCH If OK 



1597 

005500 

104002 



HL T +2 


.WRONG CHAR LEN OR DATA ERROR 



1598 







;R1 =DATA FROM FI/FO UOMPLUE WORD 


1599 







;R2=DATA (LOW BYTE) EXPECTED 



1600 

005502 

017701 

173614 

75: 

MOV 

BRBUf . R1 

.READ FJ/FO 



1601 

005506 

100001 



BPL 

.♦4 

.•BRANCH IF CHAR PRESENT NOT SET 



1602 

005510 

104001 



hlmi 


.•CHARACTER PRESENT STAYED sE* 



1603 







;R1 = CONTENTS OF RBUF 



1604 

005512 

017701 

1 73602 

8$: 

MOV 

BCSR, R1 

.SAVE THE CSR 



1605 

005516 

022701 

1 00405 


CMP 

#100405. R1 

.-CHECK THE CSR 



1606 

0055 22 

001401 



BcO 

.♦4 

.BRANCH IF OK 



1607 

005524 

104001 



hlmi 


.•DONE DIDN'T CLEAR OR OTHER CSR 

ERROR 


1608 







;R1 = CONTENTS OF CSR 



1609 

005526 

005077 

173572 


CLR 

BTCR 

;CLFAR TCR 



161C 

005532 

005077 

173562 


CLR 

acsfi 

.•CLEAR CSR 



1611 

005536 

1044 00 



SCOPE 





1612 
111 T 










lol J 




0 * * * * 






1614 




;TEST 

26: 

TEST THAT 

LINE 3 CAN TRANSMIT AND 



1615 






RECEIVE A 

CHARACTER. (377) 



1616 





J: 

CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE 

TIME. 


1617 





35: 

CHECKS THAT NO ERRORS IN FI/FO 



1613 




0 

*5: 

CHECKS THA T RIGHT LINE # < 5) IN FI/FO 
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1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 
165? 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 
1661 
1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 


m 3 
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TST26: TEST ALL OF LINE 3 TRANSMIT AND RECEIVE LOGIC 

; 51: CHECKS FOR RIGHT CHARACTER LENGTH 

61: CHECKS THAT CORRECT DATA WAS RECEIVED 
; 71: CHECKS THAT CHARACTER PRESENT CLEARS 

81: CHECKS THAT DONE CLEARS 

.■PROBABLE FAULTY LOGIC: M7285 (D2-7) ALL; M7279 AL*.; UAA T CARD D03 SERIES 


St (J 0058 


005540 004737 014600 


INITIALIZE 
DEVICE “CSR' REGISTER 


005544 

005552 

005556 

005560 

005566 

005570 

005572 

005574 

005600 

005602 

005604 

005606 

005612 


005614 

005620 

005624 

005626 


005630 

005632 

005636 

005640 

005644 

005646 


005650 

005654 

005656 

005660 


005662 

005664 


010102 

042702 

000302 

122702 

001401 

104001 


117702 

130201 

001401 

104002 


105102 

120102 


TST26: JSR 


WAIT FOR MOS TO CLEAR 


SAINFD 


052777 

000010 

173552 


BIS 

*8IT3. ST CR 

017701 

173542 


L0P26: 

MOV 

SC SR. R1 

100375 




BPL 

L0P26 

012777 

000377 

173540 


MOV 

*177. STBUF 

005000 




CLR 

RO 

105305 



11: 

DECS 

R5 

001376 




BNE 

11 

017701 

173522 



MOV 

SRBUF ,R1 

100405 




BMI 

31 

005200 




INC 

RO 

001371 




BNE 

11 

017702 

173506 



MOV 

SC SR, R2 

104002 




HLT*2 


050037 

001 346 


31: 

BIS 

RO. TIMER 

032701 

070000 



BIT 

#76000. R1 

001401 




8EQ 

.♦4 

104001 




HLT*1 



170377 

000003 


173510 


MOV 

R1. 

R2 

BIC 

#1^0377 

,R 2 

SWAB 

R2 


CMPB 

#3. . 

R2 

8E0 

.♦4 


HLT*1 



M0V8 

SDJLEN. 

R2 

BIT8 

R2. 

R1 

BEO 

.♦4 


HL T *2 



COMB 

F<2 


CMPB 

R1. 

R2 


; 0 1 T 2 - MAINTENANCE 

;8I T 3 = CLEAR MOS 

;8JT8 = MASTER XMTR SCAN EN8 

SET: 

;8I TO = RECEIVER ENABLE 

; SET XMTR CONTROL BIT, UNE 3 
;WAIT FOR XMTR READY 

;SEND A RUBCUT 
.•CLEAR COUNTER 
.SHORT WAIT LOOP 

.-WAIT FOR CHAR. PRES. 

.•BRANCH WHEN FOUND 
.•TIME COUNTER 
.•BRANCH IF NOT TIME-OUT 
SAVE CSR 

;CHARACTER READY DIDN'T SET 
;R1 - CONTENTS OF R8UF 
;R2 = CONTENTS Of CSR 
;SAVE THE TIMER 
.•CHECK FOR ERROR BITS 
.•BRANCH IF NONE 
.-ERROR IN RECEIVED CHAR 
;R1 = CONTENTS OF R8UF 
;BIT14=UART OVERRUN 
;8IT13=FRAMING ERROR 
;8IT12=PARITY ERROR 
.•DUPLICATE DATA WORD 
.•MASK LINE* 

.-LINE * IN LOW BYTE 
.•CHECK LINE * 

.•BRANCH IF OK 
.-WRONG LINE * RECEIVED 
;R1 = CONTENTS Or RBUF 
;BITS8-11 = LINE » 

;GET MASK OF CHARACTER 
.-CHECK CHAR LENGTH. 

.•BRANCH IF OK 

.•WRONG CHARACTER LENGTH 

;R1=DATA FROM FI/FO 

;R2=MASK (BITS SET NOT EXPE r TED 

.-REVERSE THE MASK 

.•CHECK THE ACTURAL DATA 
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TST26: TEST ALL OF LINE 3 TRANSMIT AND RECEIVE LOGIC 


SEG 0039 


005666 

005670 


005672 

005676 

005700 

005702 

005706 

005712 

005714 


001401 

104002 


017701 

100001 

104001 

017701 

022701 

001401 

104001 


173424 


173412 

100^05 


6EQ 

HLT+2 


MOV 
BPL 
HLT + 1 

MOV 
CMP 
BEQ 
HLT + 1 


3RBUF , 

.>4 


3CSR. R1 
#100405, R1 
. ♦4 


BRANCH IF OK 

WRONG CHAR LEN OR DATA ERROR 
R1=DATA FROM FI/FO (COMPLETE WORD) 
R2=DATA (LOW BYTE) EXPECTED 
READ FI/FO 

BRANCH IF CHAR PRESENT NOT SE Y 

CHARACTER PRESENT STAYED SET 

R1 = CONTENTS OF RBllF 

SAVE r HE CSR 

CHECK THE CSR 

BRANCH IF OK 

DONE DIDN'T CLEAR OR OTHER CSR ERROR 
R1 = CONTENTS OF CSR 


1688 

005716 

005077 

173402 

CLR 

3TCR 

.•CLEAR 

TCR 

1689 

005722 

005077 

173372 

CLR 

3CSR 

.'CLEAR 

CSR 

1690 

005726 

104400 


SCOPE 




1691 

005730 

005237 

001 364 

INC 

DJLEN 



1692 

005734 

012737 

005742 015250 

MOV 

#.♦6, LAD 




*********************************************************************** 
TEST 27: TEST THAT LINE 4 CAN TRANSMIT AND 

RECEIVE A CHARACTER. (377) 

IS: CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE TIME. 

3$: CHECKS THAT NO ERRORS IN FI/FO 
4S: CHECKS THAT RIGHT LINE # (4) IN FI/FO 
5$: CHECKS FOR RIGHT CHARACTER LENGTH 
6$: CHECKS THAT CORRECT DATA WAS RECEIVED 
7$: CHECKS THAT CHARACTER PRESENT CLEARS 
8$: CHECKS THAT DONE CLEARS 

PROBABLE FAULTY LOGIC: M7285 (D2-7) ALL; M7279 ALL; UART CARD D03 SERIES 

*********************************************************************** 


INITIALIZE 
DEVICE'tSR' REGISTER 


1709 




0 




1710 

005742 

004737 

014600 

TST2 7 : 

JSR 

pc. 

a#iNi 

1711 








1712 








1713 




.-WAIT 

FOR MOS 

TO CLEAR 


1714 








1715 








1716 








1717 

005746 

052777 

000020 

173350 

BIS 

#81 T4. 

3TCR 

1718 

005754 

01 7701 

173340 

LOP27: 

MOV 

acsR, 

R1 

1719 

005760 

100375 



BPL 

LOP27 


1720 

005762 

012777 

000377 

173336 

MOV 

#377. 

alTBUF 

1721 

005770 

005000 



CLR 

RO 


1722 

005772 

105305 


1$: 

DECB 

R5 


1723 

005774 

001376 



BNE 

1$ 


1724 

005776 

017701 

173320 


MOV 

3R8UF ,R1 

1725 

006002 

100405 



BMI 

3$ 


1726 

006004 

005200 



INC 

RO 


1727 

006006 

001371 



BNE 

1$ 


1728 

006010 

017702 

1 73304 


MOV 

acsR. 

R2 

1729 

006014 

104002 



HLT-2 




SET: 

;8IT2 = MAINTENANCE 

;BIT3 = CLEAR MOS 

;8IT8 = MASTER XMTR SCAN EN8 


SET: 

;9IT0 = RECEIVER ENABLE 

;SET XMTR CONTROL BIT, LINE 4 
;UAI T FOR XMTR READY 


SEND A RUBOUT 
CLEAR COUNTER 
SHORT WAIT LOOP 

WAIT FOR CHAR. PRES. 
BRANCH WHEN FOUND 
TIME COUNTER 
BRANCH IF NOT TIME-OUT 
SAVE CSR 

CHARACTER READY DIDN'T SET 
R1 = CONTENTS OF R8UF 


ZZ-CZDJA-F-O 

CZDJAF.P11 


1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 
1^84 

1785 

1786 
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TST27: TEST ALL OF LINE 4 TRANSPUT AND RECEIVE LOGIC 


SFQ 0040 


006016 

050037 

001346 

3$: 

BIS 

RO. TIMER 

006022 

032701 

070000 


BIT 

#70000. R1 

006026 

001401 



BEQ 

.♦4 

006030 

104001 



hlt+i 


006032 

0101C2 


4$: 

MOV 

R1, R2 

#1 70377. R2 

006034 

042702 

170377 


BIC 

006040 

000302 



SWAB 

R2 

006042 

122702 

000004 


CMP8 

#4.. R2 

006046 

001401 



BEQ 

.+4 

006050 

104001 



HLT + 1 


006052 

1 1 7702 

1 73306 

5S: 

MOVB 

BDJLEN, R2 

006056 

1 30201 



BITB 

R2. R1 

006060 

001401 



BEQ 

. *4 

006062 

104002 



MLT + 2 


006064 

105102 


6$: 

COMB 

R2 

006066 

120102 



CMP8 

R1. R2 

006070 

001401 



BEQ 

. +4 

006072 

104002 



HLT+2 


006074 

01 7701 

173222 

7$: 

MOV 

8R8UF , R1 

006100 

100001 



8PL 

.♦4 

006102 

104001 



HLT*1 


006104 

01 7701 

173210 

8$: 

MOV 

aCSR. R1 

006110 

022701 

100405 


CMP 

#1 00405. R1 

006114 

001401 



8CQ 

. *4 

006116 

104001 



HLT*1 


006120 

005077 

173200 


CLR 

3TCR 

006124 

005077 

1 731 70 


CLR 

acsR 

006130 

104400 



SCOPE 





•TEST 

30: 

TEST THAT 1 


R 2 = CONTENTS OF CSR 
SAVE THE TIMER 
CHECK FOR ERROR BITS 
BRANCH IF NONE 
ERROR IN RECEIVED CHAR 
R1 = CONTENTS OF RBUF 
81 T1 4=UART OVERRUN 
81 T1 3=FRAMING ERROR 
8IT12=PARITY ERROR 
DUPLICATE DATA WORD 
MASK LINE# 

LINE # IN LOW BYTE 
CHECK LINE # 

BRANCH IF OK 
WRONG LINE # RECEIVED 
R1 = CONTENTS OF R8'JF 
8ITS8-1 1 LINE 0 
GET MASK OF CHARACTER 
CHECK CHAR LENGTH. 

BRANCH IF OK 

WRONG CHARACTER LENGTH 

R1=DATA FROM FI/FO 

R2=MASK (BITS SET NOT EXPECTED) 

REVERSE THE MASK 

CHECK THE ACTURAL DATA 

opAMfU IF DK 

WRONG CHAR LEN OR DATA ERROR 
R1=DATA FROM FI/FO (COMPLETE WORD) 
R2=DATA (LOW 8YTE) EXPECTED 
READ FI/FO 

BRANCH IF CHAR PRESENT NOT SET 

CHARACTER PRESENT STAYED SET 

R1 = CONTENTS OF RBUF 

SAVE THE CSR 

CHECK THE CSR 

BRANCH IF OK 

DONE DIDN’T CLEAR OR OTHER CSR ERROR 
R1 = CONTENTS OF CSR 
CLEAR TCR 
CLEAR CSR 


RECEIVE A CHARACTER. (377) 

1$: CHECKS THAT CHAR PRESENT IS IN TI/FO IN REASONABLE TIME. 

3$: CHECKS THAT NO ERRORS IN FI/FO 
4$: CHECKS THAT RIGHT LINE # (5) IN FI/FO 
5$: CHECKS FOR RIGHT CHARACTER LENGTH 
b$: CHECKS THAT CORRECT DATA WAS RECEIVED 
7$: CHECKS THAT CHARACTER PRESENT CLEARS 
8$: CHECKS THAT DONE CLEARS 

PR08A8LE FAULTY LOGIC: M7?85 (D2-7) ALL; M7279 ALc ; UART CARD D03 SERIES 


INITIALIZE 
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CZDJAF 

P1 1 

?6-F EB-79 

15:41 

TST30: 

TEST ALL OF LINE 5 TRANSMIT AND RECEIVE LOGIC SECi 0041 

1787 





DEVICE' 

'CSR"REGISTER 


1788 






S 

ET: 

1789 

006132 

004737 

014600 

TST30: 

JSR 

PC, 3# INI TD 

81 T2 = MAINTENANCE 

1790 







81 T3 = CLEAR MOS 

1791 







81 T8 - MASTER XMTR SCAN ENB 

1792 




; WAJ T 

FOR MOS 

TO CLEAR 


1793 






S 

ET: 

1 794 







81 TO = RECEIVER ENABLE 

1795 

17% 

006136 

052777 

000040 

173160 

BIS 

#8JT5. 3TCR 

SET XMTR CONTROL BIT, LINE 5 

■>797 

006144 

01 7 701 

173150 

IOP30: 

MOV 

3CSR, R1 

WAIT FOR XMTR READY 

1798 

006150 

100375 



BPL 

LOP 30 


1799 

006152 

012777 

000377 

173146 

MOV 

#377. 3TBUF 

SEND A RU80UT 

1800 

006160 

005000 



CLR 

RO 

CLEAR COUNTER 

1801 

006162 

105305 


1$: 

DEC8 

R5 

SHORT WAIT LOOP 

1802 

006164 

001376 



BNE 

1$ 


1803 

006166 

017701 

173130 


MOV 

3R8UF.R1 

WAIT for CHAR. PRES. 

1804 

006172 

100405 



BMJ 

3f 

BRANCH WHEN FOUND 

1805 

006174 

005200 



INC 

RO 

TIME COUNTER 

1806 

006176 

001371 



BNE 

1$ 

BRANCH IF NOT TIME-OUT 

1807 

006200 

017702 

173114 


MOV 

3CSR. R2 

SAVE CSR 

1808 

006204 

104002 



HLT*2 


CHARACTER READY DIDN’T SET 

1809 







R1 = CONTENTS OF R8UF 

1810 







R 2 = CONTENTS OF CSR 

1811 

006206 

050037 

001346 

3$: 

BIS 

RO. TIMER 

SAVE THE TIMER 

1812 

006212 

032701 

070000 


BIT 

#70000. R1 

CHECK FOR ERROR BITS 

1813 

00621 o 

001401 



8E0 

.♦4 

BRANCH IF NONE 

1814 

006220 

104001 



HLT*1 


ERROR IN RECEIVED CHAR 

1815 







R1 = CONTENTS OF R8UF 

1816 







BIT14=UART OVERRUN 

1817 







8IT13=FRAMING ERROR 

1818 







8IT12=PARITY ERROR 

1819 

006222 

010102 


4$: 

MOV 

R1 , R2 

DUPLICATE DATA WORD 

1820 

006224 

042702 

170377 


SIC 

#1 ^0377, R2 

MASK LINE# 

1821 

006230 

000302 



SWAB 

R 2 

LINE # IN LOW BYTE 

1822 

006232 

122702 

000005 


CMP8 

#5. , R 2 

CHECK LINE # 

1823 

006236 

001401 



BEO 

.♦4 

BRANCH IF OK 

1824 

006240 

104001 



WL T ♦ 1 


WRONG LINE # RECEIVED 

1825 







R1 = CONTENTS OF RBUF 

1826 







8JTS8-H = LINE # 

1827 

006242 

117702 

173116 

5S: 

M0V8 

3DJLEN. R2 

GET MASK OF CHARACTER 

1828 

006246 

130201 



BIT8 

R2. R1 

CHECK CHAR LENGTH. 

1829 

006250 

001401 



BEO 

. *4 

BRANCH IF OK 

1830 

006252 

104002 



HLT*2 


WRONG CHARACTER LENGTH 

1831 







R1=DATA FROM FI/FO 

1832 







R2=MASK (BITS SET NOT EXPECTED) 

1833 

006254 

105102 


6$: 

COMB 

R2 

REVERSE THE MASK 

1834 

006256 

120102 



CMP8 

R1 , R2 

CHECK THE ACTURAL DATA 

1835 

006260 

001401 



BEO 

.*4 

BRANCH IF OK 

1836 

006262 

104002 



HLT+2 


WRONG CHAR LEN OR DATA ERROR 

1837 







R1=DATA FROM FI/FO (COMPLETE WORD) 

1838 







R2=DATA (LOU BYTE) EXPECTED 

1839 

006264 

017701 

173032 

7$: 

MOV 

3R8UF. R1 

READ FI/FO 

1840 

006270 

100001 



BPL 

.♦4 

BRANCH IF CHAR PRESENT NOT SET 

1841 

006272 

104001 



HLT*1 


CHARACTER PRESENT STAYED SET 

"842 







R1 = CONTENTS OF RBUF 
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TST30: TEST ALL OF LINE 5 TRANSMIT AND RECEIVE LOGIC 


SEG 004? 


1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 
185? 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 
1861 
186? 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 
187? 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 
1381 
188? 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 
189? 

1893 

1894 

1895 

1896 

1897 
■»898 


006? 74 
006300 
006304 
006306 

006310 
006314 
006 3?0 


017701 

0??701 

00140’ 

104001 

005077 

0C5077 

104400 


1 730?0 
100405 


173010 

173000 


MOV 
CMP 
BEQ 
HLT + 1 

CLR 

CLR 

SCOPE 


aCSR. R1 
#100405,91 
.+4 


SAVE THE CSR 
CHECK THE CSR 
BRANCH IF OK 

DONE DIDN’T CLEAR OR OTHER CSR ERROR 
R1 = CONTENTS OF CSR 
CLEAR TCR 
CLEAR CSR 


*********************************************************************** 
test 31: TEST THAT LINE 6 CAN TRANSMIT AND 

DPrPIVP A fPIARAfTFR ( X77 ) 

1$: CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE TIME. 

3$: CHECKS THAT NO ERRORS IN FI/FO 
4S: CHECKS THAT RIGHT LINE # (6) IN FI/FO 
5S: CHECKS FOR RIGHT CHARACTER LENGTH 
6S: CHECKS THAT CORRECT DATA WAS RECEIVED 
7$: CHECKS THAT CHARACTER PRESENT CLEARS 
8$: CHECKS THAT DONE CLEARS 

PROBABLE FAULTY LOGIC: M7285 (D2-7) ALL; M7279 ALL; UART CARD D03 SERIES 


006322 004737 014600 


INITIALIZE 
DEVICE* 'CSR* REGISTER 


TST31: JSR 


WAIT FOR MOS TO CLEAR 


3#INITD 


006326 

006334 

006340 

006342 

006350 

006352 

006354 

006356 

006362 

006364 

006366 

006370 

006374 


006376 

006402 

006406 

006410 


052777 

000100 

1 72770 


BIS 

#81 T6, STCR 

017701 

172760 


L0P31 : 

MOV 

aCSR. R1 

100375 




BPL 

L0P31 

012777 

000377 

172756 


MOV 

#377. iTBUF 

005000 




CLR 

RO 

105305 



1$: 

DECS 

R5 

001376 




BNE 

IS 

017701 

172740 



MOV 

8R8UF.R1 

100405 




BMI 

3S 

005200 




INC 

RO 

001371 




BNE 

IS 

017702 

1 72724 



MOV 

aCSR. R2 

104002 




HLT+2 


050037 

001346 


3$: 

BIS 

RO. TIMER 

032701 

070000 



BN 

#70000. R1 

001401 




8 r Q 

.+4 

104001 




hlt+i 



006412 0 1 C1G2 


R1. R2 


;8IT2 = MAINTENANCE 

;8IT3 = CLEAR MOS 

;8IT8 = MASTER XMTR SCAN EM3 

SET: 

;8I TO = RECEIVER ENABLE 

;SET XMTR CONTROL BIT. LINE 6 
;UAI T FOR XMTR READY 

.SEND A RUBOUT 
; CLEAR COUNTER 
.-SHORT UAIT LOOP 

;WAIT FOR CHAR. PRES. 

.-BRANCH WHEN FOUND 
; T IME COUNTER 
.-BRANCH IF NOT TIME-OUT 
- SAVE C SR 

; CHARACTER READY DIDN’T SET 
;R1 = CONTENTS OF RBUF 
;R2 = CONTENTS OF CSR 
.-SAVE THE TIMER 
.-CHECK FOR ERROR BITS 
.-BRANCH IF NONE 
; ERROR IN RECEIVED CHAR 
;R1 = CONTENTS OF RBUF 
;8IT14=UART OVERRUN 
;8IT13=FRAMING ERROR 
;BI T12=PARI T Y ERROR 
.-DUPLICATE DATA WORD 


41: 


ZZ-CZDJA-F-0 DJ11 LOGIC TESTS 
CZD.AF.P11 26-FEB-79 15:41 


MACY11 30A(1052) 26-FE8-79 15:47 PAGE 44 

TST31: TEST ALL OF LINE 6 TRANSMIT AND RECEIVE LOGIC 


SEO 0045 


1899 

1900 

1901 
1002 

1903 

1904 

1905 

1906 

1907 

1908 

1909 
"910 
■>911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 
19?A 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 
’934 

1935 

1936 

1937 

1938 

1939 
7940 
1941 
7942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 


006414 

006420 

006422 

006426 

006430 


006432 
006436 
0064 40 
006442 


006444 

006446 

006450 

006452 


006454 

006460 

006462 

006464 

006470 

006474 

006476 

0065C0 

006504 

006S10 


042702 

000302 

122702 

001401 

104001 


170377 

000006 


BIC 
SWAB 
CMP8 
BEQ 
HLT + 1 


#1 70577, R2 
R 2 

#6., R2 
. +4 


117702 

130201 

001401 

104002 

1 7 2726 

5$: 

MOVB 

BITS 

eEQ 

Hl T *2 

SDJLEN. R2 
R2. R 1 
.♦4 

105102 

120102 

001401 

104002 


6$: 

COMB 

CMP8 

BEQ 

HLT+2 

R2 

R1, R2 

.♦4 

017701 

100001 

104001 

1 72642 

7$: 

MOV 

BPL 

HLM 

aRBUF. R1 
.♦4 

017701 

022701 

001401 

104001 

172630 

100405 

8S: 

MOV 

CMP 

BEO 

hlt*i 

aCSR. R1 
#1 00405. R1 
.♦4 

005077 

005077 

104400 

1 72620 
172610 


CLR 

CLR 

SCOPE 

aTCR 

acsR 



; TES T 

32: 

TEST THAT 1 


MASK LINE# 

.INE # IN LOW BYTE 
CHECK LINE # 

BRANCH IF OK 
WRONG LINE # RECEIVED 
R1 = CONTENTS OF R8UF 
8ITS8-11 = LINE # 

GET MASK OF CHARACTER 
CHECK CHAR LENGTH. 

BRANCH IF OK 

WRONG CHARACTER LENGTH 

R1=DATA FROM FI/FO 

R2=MASK (SITS SET NOT EXPECTED) 

REVERSE THE MASK 

CHECK THE ACTURAL DATA 

BRANCH IF OK 

WRONG CHAR LEN OR DATA ERROR 
R1=DATA FROM FI/FO (COMPLETE WORD) 
R2=DATA (LOW BYTE) EXPECTED 
READ FI/FO 

BRANCH IF CHAR PRESENT NOT SET 

CHARACTER PRESENT STAYED SET 

R1 = CONTENTS OF R8UF 

SAVE THE CSR 

CHECK THE CSR 

BRANCH IF OK 

DONE DIDN’T CLEAR OR OTHER CSR ERROR 
R1 = CONTENTS OF CSR 
CLEAR TCR 
CLEAR CSR 


RECEIVE A CHARACTER. <Z 77) 

1$: CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE UF*. 

3S: CHECKS THAT NO ERRORS IN FI/FO 
4$: CHECKS THAT RIGHT LINE * (7) IN FI/FO 
5$: CHECKS FOR RIGHT CHARACTER LENGTH 
6$: CHECKS THAT CORRECT DATA WAS RECEIVED 
7$: CHECKS THAT CHARACTER PRESENT CLEARS 
8$: CHECKS THAT DONE CLEARS 

PROBABLE FAULTY LOGIC: M7285 (D2-7) ALL: M7279 ALL; UART CARD D03 SERIES 


006512 004737 014600 


INITIALIZE 
DE VI CE'TSR' REGISTER 


TST32: JSR 


WAIT FOR MOS TO CLEAR 


3#INITD 


006516 05 2777 000200 172600 


81 T2 = MAINTENANCE 
bit3 = clear mos 

BIT8 = MASTER XMTR SCAN ENB 


;BI TO = RFCEIVER ENABLE 


#8IT7. aUR ;SET XMTR CONTROL BIT. LINE 7 



SCO 0044 


F 4 
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CZDJAF.P11 26-FE8-79 15:41 TST32: TEST ALL OF LINE 7 TRANSMIT AND RECEIVE LOGIC 


1955 

006524 

017701 

172570 


LOP 32 : 

MOV 

SCSR, R1 

LOP32 

WAIT FOR XMTR READY 

1956 

006530 

100375 




BPL 


1957 

006532 

012777 

0003 7 7 

172566 


MOV 

#3 77. STBUF 

SEND A RU80UT 

1958 

006540 

005000 




CLR 

RO 

CLEAR COUNTER 

1959 

006542 

105305 



’t: 

DEC0 

R5 

SHORT WAIT LOOP 

1960 

006544 

001376 




BNE 

IS 


1961 

006546 

017701 

172550 



MOV 

3R8UF.R’ 

WAIT FOR CHAR. PRES. 

1962 

006552 

100405 




BMI 

3S 

BRANCH WHEN FOUND 

1963 

006554 

005200 




INC 

RO 

TIME COUNTER 

1964 

006556 

001371 




BNE 

IS 

BRANCH IF NOT TIME-OUT 

1965 

006560 

01 7702 

172534 



MOV 

SC SR, R2 

SAVE CSR 

1966 

006564 

104002 




hlt*2 


CHARACTER READY DIDN'T SET 

1967 






R1 = CONTENTS OF R8UF 

1968 








R2 = CONTENTS OF CSR 

1969 

006566 

050037 

001346 


3S- 

BIS 

RO, TIMER 

SAVE THE TIMER 

1970 

006572 

032701 

070000 



BIT 

#70000. R1 

CHFCK FOR ERROR BITS 

1971 

006576 

001401 




BEQ 

.♦4 

BRANCH IF NONE 

1972 

006600 

104001 




HLM1 


ERROR IN RECEIVED CHAR 

1973 







R1 = CONSENTS OF R3UF 

1974 








81 T14=UART OVERRUN 

1975 








8IT13=FRAMING error 

1976 








8IT12=PARITV ERROR 

1977 

006602 

010102 



4$: 

MOV 

R1. R2 

DUPLICATE DATA WORD 

1978 

006604 

042702 

170377 



B2C 

#1 7Q377.R? 

MASK LINE# 

1979 

006610 

000302 




SWAB 

R2 

LINE # IN LOW BYTE 

1980 

006612 

122702 

000007 



CMPB 

#7. . R 2 

CHECK LINE # 

1981 

006616 

001 40 1 




BEQ 

.♦4 

BRANCH IF OK 

1982 

006620 

104001 




HLT* 1 


WRONG LINE # RECEIVED 

1983 







R1 = CONTENTS OF R8UF 

1984 








BITS8-.1 = LINE * 

1985 

006622 

1 1 7702 

172536 


51: 

M0V9 

SDJLEN. R2 

GET MASK Of CHARACTER 

1986 

006626 

1 30201 




BIT8 

R 2. R1 

CHECK CHAR LENGTH. 

1987 

006630 

0014C1 




BEQ 

.♦4 

BRANCH IF OK 

1988 

006632 

104002 




H_T ♦? 


WRONG CHARACTER LENGTH 

1989 







R1=DATA FROM FI/FO 

'990 








R2=MASK (BITS SET NOT EXPEdtD) 

1991 

006634 

105102 



6$: 

COMB «». 

R2 

REVERSE THE MASK 

1992 

006636 

120102 




CMPB 

R1 , R? 

CHECK THE ACTURAL DATA 

1993 

006640 

001401 




BEQ 

.♦4 

BRANCH IF OK 

1994 

006642 

104002 




HLT *2 


WRONG CHAR LEN OR DATA EPPOR 

1995 








RI^DATA FROM FI/FO (COMPLETE WORD! 

1996 








R?=DATA (LOW BYTE) EXPECTED 

1997 

006644 

01 7 7 01 

172452 


7%: 

MOV 

SRBUF . R1 

READ FI/FO 

1998 

006650 

100001 




BPL 

.♦4 

BRANCH IF CHAR PRESENT NOT SET 

1999 

006652 

104001 




hlt*i 


CHARACTER PRESENT STAYED SET 

2000 








R1 = CONTENTS OF RBUF 

2001 

006654 

01 7701 

1 72440 


8$. 

MOV 

SCSR. R1 

SAVE THE CSR 

2002 

006660 

022701 

100405 



CMP 

#100405. R1 

CHECK THE CSR 

2003 

006664 

001401 




BEQ 

.♦4 

BRANCH IF OK 

2004 

006666 

104001 




HL T* 1 


DONE DIDN'T CLEAR OR OTHER CSR ERROR 

2005 







RT = CONTENTS OF CSP 

2006 

006670 

005077 

1 /2430 



CLR 

STCR 

CLEAR TCR 

2007 

0067 

005077 

172420 



CLR 

SCSR 

CLEAR CSR 

2008 

OCX jO 

104400 




SCOPE 



2009 

006702 

005237 

001 364 



INC 

D 11 E\ 


2010 

006706 

012737 

006714 

Cl 5250 


MO^ 

#.♦6, LAD 



ZZ-CZDJA-F-0 
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MACY'1 

30A ( 1052) 26- 

G 4 
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CZDjAf . 

P 11 

?6-F E8-79 

1 ^:4 1 


TST33: 

TEST 

ALL OF LINE 8 TRANSMIT AND RECEIVE LOGIC 


SFQ 0045 

2011 










2012 





^ A 





2013 





.-TEST 

33: 

TEST THAT LINE 8 CAN TRANSMIT AND 



20K 







RECEIVE A CHARACTER. (377) 



2015 






1$: 

CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE 

TIME. 


2016 






3$: 

CHECKS THAT NO ERRORS IN FI/FO 



201? 






4$: 

CHECKS THAT RIGHT LINE # (8) IN FI/FO 



2018 






5$: 

CHECKS FOR RIGHT CHARACTER LENGTH 



201 o 






6$: 

CHECKS THAT CORRECT DATA WAS RECEIVED 



2020 






71: 

CHECKS THAT CHARACTER PRESENT CLEARS 



2021 






8$: 

CHECKS r HAT DONE CLEARS 



2022 





.-PROBABLE FAULTY LOGIC: M7285 (D2-7) ALL; M7279 ALL; UAPT r ARD 

D03 SERIF i 


2025 










2024 










2025 







INITIALIZE 



2026 






DEVICE’ ‘CSR REGISTER 



202? 







SET: 



2028 

006714 

00473? 

014600 


TST33: 

JSR 

PC. 3#INITD ;BIT2 = MAINTENANCE 



2029 







;BI T3 = CLEAR MOS 



2030 







;BIT8 = MASTER XMTR SCAN EW 



2031 





;WA]T 

FOR MOS 

TO CLEAR 



2032 







SET: 



2053 







;BI TO = RECEIVER ENABLE 



2034 










2035 

006720 

052 7 77 

000400 

1 7 2576 


BIS 

#81*8. 3TCR ;SET XMTR CONTROL BIT. LINE 8 



2036 

006726 

017701 

1 72366 


LOP35: 

MOV 

3C SR. R1 .-WAIT FOR XMTR READY 



203 7 

006732 

100375 




BPL 

LOP33 



2038 

006734 

012777 

000377 

172364 


MOV 

#577. ST8UF .-SEND A RUBOUT 



2039 

006742 

005000 




CLR 

RO .-CLEAR COUNTER 



2040 

006744 

105305 



1$: 

DECS 

R5 .-SHORT WAIT LOOP 



2041 

006746 

001376 




BNE 

1$ 



2042 

006750 

017701 

1 72346 



MOV 

SRBUF.RI .-WAIT FOR CHAR. PRES. 



2043 

006754 

100405 




SMI 

3$ .-BRANCH WHEN FOUM) 



2044 

006756 

005200 




INC 

RC .-TIME COUNTER 



2045 

006760 

001371 




BNE 

1$ .-BRANCH IF NOT TIME-OUT 



2046 

006762 

017702 

172332 



MOV 

3CSR. R? .-SAVE CSR 



2047 

006766 

104002 




HLT+2 .-CHARACTER READY DIDN'T SET 



2048 







;Rl = CONTENTS OF R8UF 



2049 







;R 2 = CONTENTS OF CSR 



2050 

006770 

050037 

001346 


3$: 

BIS 

RO. TIMER .-SAVE THE TIMER 



2051 

006774 

032701 

070000 



BIT 

#70000. R1 .-CHECK FOR ERROR BITS 



2052 

007000 

0014G1 




BEO 

.♦4 .-BRANCH IF NONE 



2053 

007002 

104001 




mlt*i 

; ERROR IN RECEIVED CHAR 



2054 







;R1 = CONTENTS OF RBUF 



2055 







;8IT14=UART OVERRUN 



2056 







;8IT13=FRAMING ERROR 



2057 







;BIT12=PARITY ERROR 



2058 

007004 

010102 



4$: 

MOV 

R1. «2 .-DUPLICATE DATA WORD 



2059 

007006 

042702 

170377 



BIC 

#1 70377. R2 .-MASK LINE# 



2060 

007012 

000302 




SWAB 

R2 .-LINE # IN LOW BYTE 



2061 

00 7 014 

122702 

000010 



CMP8 

#8., R2 .-CHECK LINE # 



2062 

007020 

001401 




8EQ 

.♦4 .-BRANCH IF OK 



2063 

007022 

104001 




hlt*' 

.-WRONG LINE # RECEIVED 



2064 







;R1 = CONTENTS OF RBUF 



2065 







;8I TS8-1 1 - LINE # 



2066 

00702 4 

'177C2 

172534 


5$: 

Move 

3DJLEN, R2 ;GET MASK OF CHARACTER 
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TST33: TEST ALL OF LINE 8 TRANSMIT AND RECEIVE LOGIC 


SEO 0046 


2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 
2081 
2082 

2083 

2084 

2085 

2086 
2C87 
2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 
2101 
2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 
2111 
2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 
2121 
2122 


007030 

007032 

007034 


007036 

007040 

007042 

007044 


007046 

007052 

007054 

007056 

007062 

007066 

007070 

007072 

00 7 076 

007102 


130201 



BITS 

R2, 

R1 

CHECK CHAR LENGTH. 

001401 



BEQ 

.♦4 


BRANCH IF OK 

1 04002 

105102 



hl r *2 



WRONG CHARACTER LENGTH 

R1=DATA FROM FI/FO 

R2=MASK (81 TS SET NOT EXPECTED) 


6$: 

COMB 

R2 


REVERSE THE MASK 

120102 



CMP8 

R1. 

R? 

CHECK THE ACTURAL DATA 

001401 



BEG 

. +4 


BRANCH IF OK 

104002 

017701 

172250 


HL T *2 



WRONG CHAR LEN OR DATA ERROR 

R1=DATA FROM FI/FO (COMPLETE WORD) 
R2=DATA (LOW BYTE) EXPECTED 

7$: 

MOV 

3R80F . 

R1 

READ FI/FO 

100001 



BPL 

.♦4 


BRANCH IF CHAR PRESENT NOT SE T 

104001 



hlt-o 



CHARACTER PRESENT STAYED SET 

R1 = CONTENTS OF R8UF 

01 7701 

172236 

8$: 

MOV 

3CSR, 

R1 

SAVE THE CSR 

022701 

100405 


CMP 

#100405 

,R1 

CHECK THE CSR 

001401 



6c Q 

.♦4 


BRANCH IF OK 

104001 

005077 



HlT + 1 



DONE DIDN’T CLEAR OR OTHER CSR ERROR 
R1 = CONTENTS OF CSR 

172226 


CLR 

3TCR 


CLEAR TCR 

005077 

172216 


CLR 

3CSR 


CLEAR CSR 

104400 



SCOPE 






; TEST 

34: 

TEST THAT LINE 9 

CAN TRANSMIT AND 


RECEIVE A CHARACTER. (3 77 ) 

IS: CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE HMP. 

3S: CHECKS THAT NO ERRORS IN FI/FO 
4$: CHECKS THAT RIGHT LINE # (9) IN FI/FO 
5$: CHECKS FOR RIGhT CHARACTER LENGTH 
6S: CHECKS THAT CORRECT DATA WAS RECEIVED 
7$: CHECKS THAT CHARACTER PRESENT CLEARS 
8$: CHECKS THAT DONE CLEARS 

PROBABLE FAULTY LOGIC: M7285 (D2-7) ALL; M7279 ALL; UART CARD D03 SERIES 


007104 004737 014600 


INITIALIZE 
DEVICE’ ‘CSR’ 'REGISTER 


TST34: JSR 


WAIT FOR MOS TO CLEAR 


d#INITD 


007110 

007116 

007122 

007124 

007132 

007134 

007136 

007140 

007144 


052777 

017701 

100375 

012777 

005000 

105305 

001376 

017701 

100405 


172176 


17?156 


SET: 

;BIT2 = MAINTENANCE 

;8IT3 - CLEAR MCS 

;8IT8 = MASTER XMTR SCAN EM 8 


INt 9 



# 

» 




SET: 

;8IT0 = RECEIVER ENABLE 

1 72206 

0 

BIS 

#81 T9. 

STCR 

;SET XMTR CONTROL BIT. 


L0P34: 

MOV 

3CSR. 

R1 

;WAIT FOR XMTR READY 



BPL 

LOP34 



1 721 74 


MOV 

#377, 

3T8UF 

.-SEND A RU80UT 



CLR 

RO 


.•CLEAR COUNTER 


1$: 

DECS 

R5 


.•SHORT WAIT LOOP 



8NE 

1$ 





MOV 

3R8UF . 

R1 

.-WAIT FOR CHAR. PRES. 



BMI 

31 


.•BRANCH WHFN FOUND 



ZZ-CZDJA-F-O 
CZDJAF .PI 1 


2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

21 56 

2157 

2158 

2159 

2160 
2161 
2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 


007146 
007150 
007152 
007' 1 56 


D J 1 1 LOGIC TESTS 
26-FE8-79 15:41 
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TST34: TEST ALL OF LINE 9 TRANSMIT AND RECEIVE LOGIC 


)EC 0047 


007160 

007164 

007170 

007172 


007174 

007176 

007202 

007204 

007210 

007212 


007214 

007220 

007222 

007224 


007226 

007230 

007232 

007234 


007236 

007242 

007244 

007246 

007252 

007256 

007260 

007262 

007266 

007272 


050037 001 346 
032701 070000 

001401 
104001 


INC 

BNF 

MOV 

HLT<2 


BIS 
BIT 
BEQ 
HL T ♦ 1 


RO 

1 $ 

3CSR. R 2 


RO, TIMER 
#70000. R1 
.♦4 


010102 


4$ : 

MOV 

Rl. R 2 

#1?0377.R2 

042702 

170377 


BIC 

000302 



SWAB 

R2 

122702 

00001 1 


CMPB 

#9. , R2 

001401 



BEQ 

. >4 

104001 



HL T ♦ 1 


1 1 7702 

172144 

5$ : 

MOVB 

3DJLEN. R2 

130201 



BIT8 

R2. Rl 

001401 



BEQ 

.♦4 

104002 



HLT+2 


105102 


6$: 

COMB 

R 2 

120102 



CMPB 

Rl. R 2 

001401 



BEQ 

.♦4 

104002 



HLT+2 


017701 

172060 

7$: 

MOV 

3R8UF . Rl 

1C0001 



BPL 

.♦4 

104001 



hlt«-i 


017701 

1 72046 

00 

MOV 

BCSR. Rl 

022701 

100405 


CMP 

#1 00405. Rl 

001401 



BEQ 

. *4 

104001 



HLT + 1 


005077 

172036 


CLR 

STCR 

005077 

1 72026 


CLR 

acsR 

104400 



SCOPE 



TIME COUNTER 

BRANCH IF NOT TIME-OUT 

SAVE CSR 

CHARACTER READY DIDN'T SET 
R1 = CONTENTS OF R8UF 
R 2 = CONTENTS OF CSR 
SAVE THE TIMER 
CHECK FOR ERROR BITS 
BRANCH IF NONE 
ERROR IN RECEIVED CHAR 
R1 = CONTENTS OF R8UF 
81 T14=UART OVERRUN 
QI T 1 3=FRAMING ERROR 
8IT12=PARITY ERROR 
DUPLICATE DATA WORD 
MASK LINE# 

LINE # IN LOW BYTE 
CHECK LINE # 

BRANCH IF OK 
WRONG LINE # RECEIVED 
R1 = CONTENTS OF R8UF 
8ITS8-11 = LINE # 

GET MASK OF CHARACTER 
CHECK CHAR LENGTH. 

BRANCH IF OK 

WRONG CHARACTER LENGTH 

R1=DATA FROM FI/FO 

R2=«ASK (BITS SET NOT EXPECTED) 

REVERSE THE MASK 

CHECK THE ACTURAL DATA 

BRANCH IF OK 

WRONG CHAR LEN OR DATA ERROR 
R1=DATA FROM FI/FO (COMPLETE WORD) 
R2=DATA (LOU BYTE) EXPECTED 
READ FI/FO 

BRANCH IF CHAR PRESENT NOT SET 

CHARACTER PRESENT STAYED SET 

R1 = CONTENTS OF R8UF 

SAVE THE CSR 

CHECK THE CSR 

BRANCH IF OK 

DONE DIDN’T CLEAR OR OTHER CSR ERROR 
R1 = CONTENTS OF CSR 
CLEAR TCR 
CLEAR CSR 


TEST 35: TEST THAT LINE 10 CAN TRANSMIT AND 

RECEIVE A CHARACTER. (377) 

IS: CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE 

3$: CHECKS THAT NO ERRORS IN FI/FO 

4$: CHECKS THAT RIGHT LINE # (10) IN FI/FO 

5$: CHECKS FOR RIGHT CHARACTER LENGTH 

6$: CHECKS THAT CORRECT DATA WAS RECEIVED 

7$: CHECKS THAT CHARACTER PRESENT CLEARS 


ZZ-CZDjA-f-0 
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TST35: "EST ALL OF 
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15 :47 PAGE 49 
LINE 10 TRANSMIT 


AND RECEIVE LOGIC 


->179 ; 8S: CHECKS THAT DONE CLEARS 

2180 .-PROBABLE FAULTY LOGIC: M7285 (D2-7) ALL; M7279 ALL; UAR T CARD D03 SERIES 

2181 ;******* ******.....**. ***********************. ***"******»************•** 


2182 

2183 

2184 

2185 



0K600 1ST 35 : 

; WA J T 

INITIALIZE 
DEVI CE"CSR' REGISTER 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

007274 

004737 

JSR 

FOR MOS 

PC. 3# INI 

TO CLEAR 

007300 

052777 

002000 172016 

BIS 

#81 T 1 0 , STCR 

2194 

007306 

017701 

172006 LOP35: 

MOV 

3CSR, R1 
LOP35 

2195 

007312 

100375 


BPL 

2196 

007314 

012777 

000377 172004 

MOV 

#377. 3T8UF 

2197 

007322 

00 1 000 


CLR 

RO 

2198 

007324 

105305 

IS: 

DECR 

R5 

2199 

007326 

001376 


BNF 

IS 

2200 

0O733C 

01 7701 

171766 

MOV 

8R8UF.R1 

2201 

007334 

100405 


BMI 

3S 

2202 

007^36 

0C5200 


INC 

RO 

2203 

007*0 

001371 


BNE 

IS 

^204 

2205 

2206 
2207 

007342 

007346 

01 7702 
104002 

171752 

MOV 

hlt*2 

3CSR. R? 

2208 

007350 

050037 

0013*6 5$: 

BIS 

RO. TIMER 

2209 

007354 

032701 

070000 

BIT 

#70000, R1 

27 TO 
2211 
221? 

2213 

2214 

2215 

007360 

007362 

00K01 

104001 


BkO 

hlni 

.♦4 

2216 

007364 

010102 

4$: 

MOV 

Rl , R? 

2217 

007366 

04270? 

170377 

8IC 

#1 70377. R2 

2218 

007372 

000302 


SWAB 

R2 

2219 

007374 

122702 

00001? 

CMP8 

#10.. R? 

2220 

2221 

2222 

2223 

007400 

007402 

001401 

1U4001 


BEG 

HL T*1 

.♦4 

2224 

007404 

117702 

171754 5$: 

MOVB 

3DJLEN. R2 

2225 

007410 

1 30201 


BIT8 

R2. Rl 

2226 

2227 

2728 

2229 

00741? 

007414 

C01401 

10*002 


BFQ 

HLT*? 

.♦4 

2230 

007416 

105102 

6$: 

COMB 

R? 

2231 

CXP420 

120102 


( t’lPQ 

Rl. R? 

2232 

2233 

2234 

007422 

007424 

001401 

104002 


8E0 

hlt«2 

. *4 


SET : 

;BI T2 = MAINTENANCE 

; 01 T 3 = CLEAR MOS 

;8IT8 = MASTER XMTR SCAN tNB 

SET: 

;QI TO - RECEIVER ENABLE 

; SE T XMTR CONTROL BIT, LINE 10 
; WAI T FOR XMTR READY 

;SEND A RLBOUT 
.-CLEAR COUNTER 
.-SHORT WAIT LOOP 

.-WAIT FOR CHAR. PRES. 

.BRANCH WHEN FOUND 
.•TIME COUNTER 
.BRANCH IF NOT TIME-OUT 
.SAVE CSR 

.•CHARACTER READY DIDN’T SET 
;Ri = CONTENTS OF RRUF 
;R2 = CONTENTS OF CSR 
.SAVE THE TIMER 
.CHECK FOR ERROR BITS 
.BRANCH IF NONE 
.•ERROR IN RECEIVED CHAR 
;R1 = CONTENTS OF RBL-F 
;8IT14=UART OVERRUN 
;8IT13=FRAMING ERROR 
;8I IMPARITY ERROR 
.-DUPLICATE DATA WORD 
.MASK LINE# 

.•LINE # IN LOW BYTE 
.CHECK LINE # 

.-8RANCH IF OK 
.WRONG LINE # RECEIVED 
;R1 = CONTENTS OF RBUF 
.BITS8-11 = LINE # 

.-GET MASK OF CHARACTER 
.CHECK CHAR LENGTH. 

;8RANCH IF OK 

; WRONG CHARACTER LENGTH 

;R1=DATA FROM FI/FO 

;R2=MASK (BITS SET NOT EXPECTED) 

.REVERSE THE MASK 

.•CHECK THE ACT URAL DATA 

; BRANCH IF OK 

.-WRONG CHAR LEN OR DATA ERROR 
;R1 -DATA FROM FI/FO (COMPiETF wORD 


SCO 0048 
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TST35: TEST ALL OF LINE 10 TRANSMIT AND RFCEJVE LOGIC 


SEO 0049 


2236 

2237 

2238 

2239 

007426 

007432 

007434 

017701 

100001 

104001 

171670 

7$: 

MOV 

BPL 

HL T + 1 

aRBUF, R1 
.♦4 

2.-.0 

007436 

017701 

171656 

8$: 

MOV 

iCSR, R1 

2241 

2242 

2243 

2244 

007442 

007446 

007450 

022701 

001401 

104001 

100405 


CMP 

BEO 

HL T ♦ 1 

#100405. R1 
.♦4 

2245 

007452 

005077 

171646 


CLR 

aicR 

2246 

2247 

2248 

2249 

007456 

007462 

005077 

104400 

171636 

• * * * * 

CLR 

SCOPE 

a csr 


22 50 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 
2261 
2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 
2281 
2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 


R2-DATA (LOW BYTE) EXPECTED 
READ FI/FO 

BRANCH IF CHAR F-RESENT NOT SET 

CHARACTER PRESENT STAYED SET 

R1 = CONTENTS OF R8UF 

SAVE THE CSR 

CHECK THE CSR 

BRANCH IF OK 

DONE DIDN'T CLEAR OR OTHER (SR ERROR 
R1 * CONTENTS OF CSR 
CLEAR TCR 
CLEAR CSP 


TEST 36: TES 1 THAT LINE 11 CAN TRANSMIT AND 

RECEIVE A CHARACTER. (377) 

It: CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE TIME 

3$. CHECKS THAT NO ERRORS IN FI/FO 

4$: CHECKS THAT RIGHT LINE # (11) IN FI/FO 

5$: CHECKS FOR RIGHT CHARACTER LENGTH 

6t: CHECKS THAT CORRECT DATA WAS RECFIVED 

7$: CHECKS THAT CHARACTER PRESENT CLEARS 

8S: CHECKS THAT DONE CLEARS 

PROBABLE FAULTY LOGIC: M7?85 (D2-7) ALL; M7279 ALL; UARJ TARD D03 SERIES 


1 07464 004 757 01 4600 


INITIALIZE 
DEV ICE "CSR* REG IS TER 


TST36: 


d#INHD 


; WA I T for MOS TO CLEAR 


SET: 

;BI T2 - MAINTENANCE 

;BIT5 = CLEAR MOS 

;8IT8 - MASTER XMTR SCAN EMB 


;BI TO = RECEIVER ENABLE 


007470 

007476 

007502 

007504 

007512 

007514 

007516 

007520 

007524 

007526 

007530 

007532 

007536 


00 7 540 

007544 

007550 

007552 


052777 
017701 
100375 
012777 
005000 
105305 
001376 
017701 
100405 
005200 
001371 
01 7702 
104002 


050037 

032701 

001401 

104001 


004000 

171626 

cOP36: 

BIS 

#81711. iTCR 

SET XMTR CONTROL BIT. LINE 

1 7161 6 


MOV 

aCSR. R1 

WAIT f OR XMTR READY 

000377 



BPL 

LOP36 

171614 


MOV 

#377, aiBUF 

SEW A RIJBOUT 



It: 

CLR 

RO 

CLEAR COUNTER 



DECS 

R5 

SHORT WAIT LOOP 

171576 



BNE 

1$ 




MOV 

iRBUF ,R1 

WAIT FOR CHAR. PRES. 




BMJ 

3$ 

BRANCH WHEN FOUND 




INC 

RO 

TIME COUNTER 

171562 



BNE 

It 

BRANCH IF NOT TIME-OUT 



MOV 

aCSR, R2 

SAVE CSR 

001346 


3$: 

HL 1*2 


CHARACTER READY DIDN'T SET 
R1 = CONTENTS OF RBUF 

R2 = CONTENTS OF CSR 


BIS 

RO. TIMER 

SAVE THE TIMER 

070000 



BIT 

#70000. R1 

CHECK FOR ERROR BITS 




8E0 

.♦« 

BRANCH IF NONE 




HL T ♦ 7 


ERROR IN RFCEIVED CHAR 
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TST36: TEST ALL OF LINE 11 TRANSMIT AND RECEIVE LOGIC 


5ECJ 0050 


2? 95 

0075S4 

010102 


4$: 

MOV 

R1 , R2 

2296 

007S 56 

042702 

170377 


BIC 

#1 70377.R2 

2297 

007562 

000302 



SWA8 

R2 

2298 

007564 

12270? 

000013 


CMP8 

#11.. R2 

2299 

007570 

001401 



BEQ 

.♦4 

2500 

007572 

104001 



HL T ♦ 1 


2 50’ 







2302 







2303 

007574 

1 1 7702 

171564 

5S: 

Move 

iDJLEN. R2 

2304 

007600 

1 30201 



BIT8 

R2. R1 

2305 

007602 

001401 



8EQ 

.♦4 

230t> 

007604 

104002 



HL T ♦? 


2307 







2s08 







2309 

007606 

1051 02 


6$: 

COMB 

R2 

2310 

007610 

120102 



CMP8 

R1 . R2 

2311 

007612 

001401 



BEO 

.♦4 

2312 

007614 

104002 



HL T «2 


2313 







2314 







231S 

007616 

017701 

171500 

7$: 

MOV 

aRBUf . R1 

2316 

007622 

100001 



BPL 

.♦4 

2317 

007624 

104001 



HL T ♦ 1 


2318 







2519 

007626 

017701 

171466 

8$: 

MOV 

iC SR. R1 

2320 

007632 

022701 

100405 


CMP 

#100405. R1 

2321 

0C7636 

001401 



BEO 

. *4 

2322 

007640 

104001 



HL T * 1 


2323 







2324 

007642 

005077 

171456 


CLR 

STCR 

2325 

007646 

005077 

171446 


CLR 

SC SR 

2326 

007652 

104400 



SCOPE 


2327 

007654 

005217 

001364 


INC 

DJLEN 

2328 

007660 

012757 

007666 015250 


MOV 

#.♦6. LAD 

2329 







2530 







2331 




.-TEST 

37: 

TEST THAT L 

2332 






RECEIVE A Cl 


R1 - CONTENTS OF R8UF 
81 T14=UART OVERRUN 
81 T1 3=FRAMING ERROR 
81 T12=PARI TY ERROR 
DUPLICATE DATA WORD 
MASK LINE# 

LINE 0 IN LOW BYTE 
CHECK LINE # 

8RANCH IF OK 
WRONG LINE # RECEIVED 
R1 = CONTENTS OF R8UF 
3ITSS-11 = LINE 0 
GET MASK OF CHARACTER 
CHECK CHAR LENGTH. 

BRANCH IF OK 

WRONG CHARACTER LENGTH 

Rl=DATA FROM FI/FO 

R2=MASK (BITS SET NOT EXPECTED) 

REVERSE THE MASK 

CHECK THE ACTURAL DATA 

BRANCH IF OK 

WRONG CHAR LEN OR DATA ERROR 
R1=DATA FROM FI/FO (COMPLETE WORD) 
R2=DATA (LOU BYTE) EXPECTED 
READ FI/FO 

BRANCH IF CHAR PRESENT NOT SET 
CHARACTER PRESENT STAYED SET 
R1 - CONTENTS OF R8UF 
SAVE THf CSR 
CHECK THE CSr< 

BRANCH IF OK 

DONE DIDN'T CLEAR OR OTHER CSR ERROR 
R1 = CONTENTS OF CSR 
CLEAR TCR 
CLEAR CSR 


007666 004737 014600 


PR08A8LE FAULTY LOGIC 


RECEIVE A CHARACTER. (377) 

CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE TIME. 

CHECKS THAT NO ERRORS IN FI/FO 

CHECKS THAT RIGHT LINE 0 (12) IN FI/FO 

CHECKS FOR RIGHT CHARACTER LENGTH 

CHECKS THAT CORRECT DATA WAS RECEIVED 

CHECKS THAT CHARACTER F'RESENT CLEARS 

r HECKS THAT DONE CLEARS 

LTY LOGIC: M7285 <D2-7> ALL; M7279 ALL; UART CARD D03 SERIES 


TST37: 


INITIALIZE 
DEVJCE’T SR’ REGISTER 

SET: 

JSR PC, i# I N I T I) ;fairr 


MAINTENANCE 
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TST37: 

TEST ALL OF LINE 12 TRANSMIT AND RECEIVE LOGIC SEO 0051 

2347 








81 T3 - CLEAR MOS 

2348 








81 T8 - MASTER XMTR SCAN EN8 

2349 





.’WAIT 

FOR MOS 

TO CLEAR 

2350 








>ET: 

2351 








81 TO = RECEIVER ENABLE 

2352 







#8 I T 1 2 . STCR 


2353 

007672 

052777 

010000 

171424 


BIS 

SET XMTR CONTROL BIT, LINE 1 ? 

2354 

007700 

017701 

171414 


L0P37: 

MOV 

aCSR, R1 

WAIT FOR XMTR READY 

2355 

007704 

100375 




8PL 

LOP37 


2356 

007706 

012777 

000377 

171412 


MOV 

#377. aTBUF 

SEND A RU80UT 

2357 

007714 

005000 




CLR 

RO 

CLEAR COUNTER 

2358 

00771t> 

105305 



1 $: 

DEC8 

R5 

SHORT WAIT LOOP 

2359 

007720 

001376 




BNC 

1$ 


23*0 

007722 

017701 

171374 



MOV 

aR8UF.P1 

WAIT FOR CHAR. PRES. 

2361 

007726 

100405 




8MI 

3$ 

BRANCH WHEN FOUND 

2362 

007730 

005200 




INC 

RO 

TIME COUNTER 

2363 

007732 

001371 




BNE 

IS 

BRANCH IF NOT TIME-OUT 

2364 

007734 

01 7702 

1 71 360 



MOV 

aCSR. R 2 

SAVE CSR 

2365 

007740 

104002 




HLT*2 


CHARACTER READY DIDN’T SET 

2366 








R1 = CONTENTS OF R8UF 

2367 








R2 = CONTENTS OF CSR 

2368 

007742 

050037 

001 346 


3$: 

8IS 

RO, TIMER 

SAVE THE TIMER 

2369 

007746 

032701 

070000 



BIT 

#70000. R1 

CHECK FOR ERROR BITS 

2370 

007752 

001401 




BEO 

.♦4 

BRANCH IF NONE 

2371 

007754 

104001 




HLT*1 


ERROR IN RECEIVED CHAR 

2372 








R1 = CONTENTS OF R0UF 

2373 








81 T14=UART OVERRUN 

2374 








8IT13=FRAMING ERROR 

2375 








8IT12=PARITY ERROR 

2376 

007756 

010102 



4$: 

MOV 

R1, R 2 

DUPLICATE DATA WORD 

2377 

007760 

042702 

170377 



8IC 

#1 >0377. R2 

MASK LINE# 

2378 

007764 

000302 




SUA8 

R2 

LINE # IN LOU BYTE 

2379 

007766 

122702 

000014 



CMP8 

#12.. R2 

CHECK LINE # 

2380 

007772 

001401 




at o 

.♦4 

BRANCH IF OK 

2361 

007774 

104001 




HLT*1 


WRONG LINE # RECEIVED 

2382 








R1 = CONTENTS OF RBUF 

2383 








8ITS8-11 = LINE # 

2384 

007776 

117702 

171362 


5$: 

M0V8 

aDJLEN. R2 

GET MASK OF CHARACTER 

2385 

010002 

130201 




BITS 

R 2. R1 

CHECK CHAR LENGTH. 

2386 

010004 

001401 




8E0 

.♦4 

BRANCH IF OK 

2387 

010006 

104002 




HLT*2 


WRONG CHARACTER LENGTH 

2388 








R1--DATA FROM FI'FO 

2389 








R2=MASK (BITS SET NOT EXPECTED) 

2390 

010010 

105102 



6$: 

COM3 

R2 

REVERSE THE MASK 

2391 

010012 

120102 




CMP8 

R1 , R2 

CHECK THE ACTURAL DATA 

2392 

010014 

001401 




8EQ 

.♦4 

BRANCH IF OK 

2393 

010016 

104002 




HLT+2 


WRONG CHAR LEN OR DATA ERROR 

2394 








R1=DATA FROM Fl/FO (COMPLETE WORD) 

2395 








R2=DATA (LOW BYTE) EXPECTED 

2396 

010020 

017701 

171276 


7$: 

MOV 

aR8UF . R1 

READ FI/FO 

2397 

010024 

100001 




BPL 

.♦4 

BRANCH IF CHAR PRESENT NOT SET 

2398 

010026 

10400 1 




HLT+1 


CHARACTER PRESENT STAYED SET 

2399 








R1 = CONTENTS OF RBUF 

2400 

010030 

017701 

171264 


8$: 

MOV 

aCSR. R1 

SAVE THE CSR 

2401 

010034 

022701 

100405 



CMP 

#100405, R1 

CHECK THE CSR 

2402 

010040 

001401 




SEO 

. +4 

BRANCH IF OK 
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CZDJAF.P11 26-FEB-79 15:41 TST37: TEST ALL OF LINE 1 2 TRANSMIT AND RECEIVE I OGIC 


SEO 0052 


2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 


010042 104001 


010044 

010050 

010054 


005077 

005077 

104400 


171254 

171244 


HLT + 1 

CLR 

CLR 

SCOPE 


DONE DIDN’T CLEAR OR 01 HER CSR ERROR 
R1 = CONTtNTS OF CSR 
CLEAR TCR 
CLEAR CSR 


010056 004737 014600 


A********************************************************************** 

TEST 40: TEST THAT LINE 13 CAN TRANSMIT AND 

BFfFTVF A rHABATTFO 

1$: CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE TIME. 

3$: CHECKS THAT NO ERRORS IN FI/FO 
4$: CHECKS THAT RIGHT LINE * (13) IN FI/FO 
5$: CHECKS FOR RIGHT CHARACTER LENGTH 
6$: CHECKS THAT CORRECT DATA WAS RECEIVED 
7$: CHECKS THAT CHARACTER PRESENT CLEARS 
8$: CHECKS THAT DONE CLEARS 

PROBABLE FAULTY LOGIC: M7285 (D2-7) ALL; M7279 AIL; UART CARD D03 SERIES 

ft***********************************************#-********************** 

INITIALIZE 
DEVI CE'TSR’ REGISTER 

SET: 

TST40: JSR PC. 8*IN1TD ;8IT2 = MAINTENANCE 

;BIT3 - CLEAR MOS 


WAIT FOR MOS TO CLEAR 


2432 

010062 

052777 

020000 

171234 


BIS 

*8IT13. 

8TCR 

2433 

010070 

017701 

1 71224 


L0P40: 

MOV 

8CSR. 

R1 

2434 

010074 

100375 




BPL 

L0P40 


2^*35 

010076 

012777 

0C0377 

171222 


MOV 

*377, 

STBUF 

2436 

010104 

005000 




CLR 

RO 


2437 

010106 

105305 



1$: 

DECS 

R5 


2438 

010110 

001376 




BNE 

IS 


2439 

010112 

017701 

171204 



MOV 

SRBUF ,R1 


2440 

010116 

100405 




BMI 

3$ 


2441 

010120 

005200 




INC 

RO 


2442 

010122 

001*71 




BNE 

IS 


2443 

010124 

017702 

171170 



MOV 

acsR. 

R2 

2444 

010130 

104002 




HLT+2 



2445 









2446 









2447 

010132 

050037 

00134c 


3$: 

BIS 

RO. i IMER 

2448 

010136 

032701 

070000 



BIT 

*70000. 

R1 

2449 

010142 

001401 




BEQ 

.♦4 


2450 

010144 

104001 




HLT + 1 




010146 

010150 

010154 

010156 


010102 

042702 

000302 

122702 


170377 

000015 


R1. R 2 
*1?0377,R? 
R2 

*13.. R2 


;BI T8 - MASTER XMTR SCAN ENB 
SET: 

;8I TO = RECEIVER ENABLE 

;StT XMTR CONTROL BIT, LINE 13 
;WAIT FOR XMTR READY 

.-SEND A RUBOUT 
.•CLEAR COUNTER 
.-SHORT WAIT LOOP 

.-WAIT FOR CHAR. PRES. 

.-BRANCH WHEN FOUND 
.-TIME COUNTER 
.-BRANCH IF NOT TIME-OUT 
"SAVE CSR 

; CHARACTER READY DIDN’T SET 
;R1 = CONTENTS OF R8UF 
;R2 = CONTENTS OF CSR 
.-SAVE THE TIMER 
.•CHECK FOR ERROR BITS 
.•BRANCH IF NONE 
.ERROR IN RECEIVED CHAR 
;R1 = CONTENTS OF RBUF 
;BIT14=UART OVERRUN 
;8IT13=FRAMING ERROR 
;8I T12=PARITY ERROR 
.•DUPLICATE DATA WORD 
.-MASK LINE* 

.-LINE # IN LOW BYTE 
.•CHECK LINE # 
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TST40: TEST ALL OF LINE 13 TRANSMIT AND RECEIVE LOGIC 


SEO 0053 


2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 
24% 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 


010162 

010164 


010166 

010172 

010174 

010176 


010200 

010202 

010204 

010206 


010210 

010214 

010216 

010220 

010224 

010230 

010232 

010234 

010240 

010244 


010252 

010260 

010264 

010266 


001401 

104001 


117702 
1 30201 
001401 
104002 


105102 

120102 

001401 

104002 


017701 

100001 

104001 

01 7701 
022701 
001401 
104001 

005077 

005077 

104400 




BEQ 

HLT + 1 

.♦4 

BRANCH IF OK 

WRONG LINE # RECtIVED 

R1 = CONTENTS OF R8UF 

81 TS8-1 1 = LINE » 

171172 

5$: 

M0V8 

BIT8 

BEQ 

HLT + 2 

3DJLEN, R2 

R2. R1 

. +4 

GET MASK OF CHARACTER 

CHECK CHAR LENGTH. 

BRANCH IF OK 

WRONG CHARACTER LENGTH 

R1=DATA FROM FI/FO 

R2=MASK (BITS SET NOT EXPECTED) 


6S: 

COMB 

CMP8 

BEQ 

HL T + 2 

R2 

R1 . R2 

.+4 

REVERSE THE MASK 

CHECK THE ACTURAL DATA 

BRANCH IF OK 

WRONG OIAR LEN OR DATA ERPOR 

R1=DATA FROM FI/FO (COMPLETE WORD) 
R2--DATA (LOW BYTE) EXPECTED 

171106 

7$: 

MOV 

BPL 

HLT + 1 

3R8UF . R1 
.+4 

READ FI/FO 

BRANCH IF CHAR PRESENT NOT SET 
CHARACTER PRESENT STAYED SET 

R1 = CONTENTS OF RBUF 

171074 

8$: 

MOV 

3CSR. R1 

SAVE THE CSR 

100405 


CMP 

BEQ 

HLT + 1 

#1 00405. R1 
.+4 

CHECK THE CSR 

BRANCH IF OK 

DONE DIDN’T CLEAR OR OTHER CSR ERROR 
R1 = CONTENTS OF CSR 

171064 


CLR 

3TCR 

CLEAR TCR 

171054 


CLR 

SCOPE 

3CSR 

CLEAR CSR 


010246 004737 014600 


************************************************************************ 
TEST 41: TEST THAT LINE 14 CAN TRANSMIT AND 

RECEIVE A CHARACTER. (377) 

1$: CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE TIME. 

3$: CHECKS THAT NO ERRORS IN FI/FO 
4$: CHECKS THAT RIGHT LINE * (14) IN FI/FO 
5$: CHECKS FOR RIGHT CHARACTER LENGTH 
6$: CHECKS THAT CORRECT DATA WAS RECEIVED 
7$: CHECKS THAT CHARACTER PRESENT CLEARS 
8$: CHECKS THAT DONE CLEARS 

PROBABLE FAULTY LOGIC: M7285 (D2-7) ALL; M7279 ALL; UART CARD D03 SERIES 


INITIALIZE 
DEVICE"CSR' REGISTER 


TST41 : JSR 


WAIT FOR MOS TO CLEAR 


3#1NITD 


052777 
01 7701 
100375 
012777 


040000 

171034 


171044 


000377 171032 


BIS 

#BJT14. 

3TCR 

MOV 

3CSR. 

R1 

BPL 

L0P41 


MOV 

#377. 

STBUF 


SET : 

;8I T2 = MAINTENANCE 

;BJT3 = CLEAR MOS 

;8IT8 = MASTER XMTR SCAN EN6 

SET: 

;QJ TO = RECEIVER ENABLE 

;SET XMTR CONTROL BIT. LINE 14 
;UAI T FOR XMTR READY 

.-SEND A RJBOUT 
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2550 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 
254? 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 
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TST41: TEST ALL OF LINE 14 TRANSMIT AND RECEIVE LOGIC 

CLR RO .-CLEAR COUNTER 

1$: DECS R5 .-SHORT WAIT LOOP 


SEG 0054 


2515 

010274 

005000 



CLR 

RO 

2516 

010276 

105305 


1$: 

DECS 

R5 

2517 

010300 

001376 



ONE 

1$ 

2518 

O' 1 0302 

017701 

1710H 


MOV 

3R8UF ,R1 

2519 

010306 

100405 



BMI 

3S 

2520 

010310 

005200 



INC 

RO 

2521 

010312 

001371 



BNE 

1$ 

2522 

010314 

01 7702 

171000 


MOV 

3CSR. R2 

2523 

010320 

104002 



HL T +2 


2524 







2525 







2526 

010322 

050037 

001 346 

3$: 

BIS 

RO. TIMER 

2527 

010326 

032701 

070000 


BIT 

#70000. R1 

2528 

010332 

001401 



BEQ 

.♦4 

2529 

010334 

104001 



HL T + 1 



010336 

010340 

010344 

010346 

010352 

010354 


010356 

010362 

010564 

010366 


010370 

010372 

010374 

010376 


010400 

010404 

010406 

010410 

010414 

010420 

010422 

010424 

010430 

010434 


010102 

042702 

000302 

122702 

001401 

104001 

1 70377 

000016 

4$: 

MOV 

BIC 

SWAB 

CMP8 

BEO 

HL T + 1 

R1, R 2 
#1 70377, R2 
R2 

#14.. R2 
.♦4 

117702 

1 30201 
001401 
104002 

171002 

5$: 

M0V8 

BIT8 

BEO 

HLT+2 

3D JLEN, R2 
R2. R1 

. + 4 

105102 

120102 

001401 

104002 


6$: 

COMB 

CMF’B 

BEO 

HL T *2 

R2 

R1 . R2 

.♦4 

017701 

100001 

104001 

170716 

7$: 

MOV 

BPL 

hl r ♦ i 

3RBUF. R1 
.♦4 

01 7701 
022701 
001401 
104001 

1 70704 
100405 

8S: 

MOV 

CMP 

BEO 

HL T ♦ 1 

3CSR, R1 
#1 00405, R1 
.♦4 

005077 
OC 5077 
104400 

1 70674 
170664 


CLR 

CLR 

SCOPE 

3TCR 

3CSR 


WAIT FOR CHAR. PRES. 

BRANCH WHEN FOUND 
TIME COUNTER 
BRANCH IF NOT TIME-OUT 
SAVE CSR 

CHARACTER READY DIDN'T SET 
R1 = CONTENTS OF R8UF 
R2 = CONTENTS OF CSR 
SAVE THE TIMER 
CHECK FOR ERROR BITS 
BRANCH IF NONE 
ERROR IN RECEIVED CHAR 
R1 = CONTENTS OF R8UF 
SI T14=liART OVERRUN 
81 T13=F RAWING ERROR 
8IT12=PARITY ERROR 
DUPLICATE DATA WORD 
MASK LINE# 

LINE # IN LOW BYTE 
CHECK LINE # 

BRANCH IF OK 
WRONG LINE # RECEIVED 
R1 = CONTENTS Of R8UF 
8ITS8-11 = LINE # 

GET MASK OF CHARACTER 
CHECK CHAR LENGTH. 

BRANCH IF OK 

WRONG CHARACTER LENGTH 

R1=DATA FROM FI/FO 

R2=MASK (BITS SET NOT EXPECTED) 

REVERSE THE MASK 

CHECK THE ACTURAL DATA 

BRANCH IF OK 

WRONG CHAR LEN OR DATA ERROR 
R1=DATA FROM FI/FO (COMPLETE WORD) 
R2=DATA (LOW BYTE) EXPECTED 
READ FI/FO 

BRANCH IF CHAR PRESENT NOT SET 

CHARACTER PRESENT STAYED SET 

R1 = CONTENTS OF RBUF 

SAVE THE CSR 

CHECK THE CSR 

BRANCH IF OK 

DONE DIDN'T CLEAR OR OTHER CSR ERROR 
R1 = CONTENTS OF CSR 
CLEAR TCR 
CLEAR CSR 


; TEST 42: TEST THAT LINE 15 CAN TRANSMIT AND 

; RECEIVE A CHARACTER. (377) 

; 1$: CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE T IM£. 


0104 36 004737 014600 


010442 
010450 
010454 
010456 
010464 
010466 
010470 
010472 
Cl 0476 
010500 
Cl 0502 
010504 
010510 


010512 

010516 

010522 

010524 


010526 

010530 

010534 

010536 

010542 

010544 


010546 

010552 

010554 

010556 


100000 

170644 
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2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 
2601 
2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 
2611 
2612 

2613 

2614 
26 J 5 
2616 

2617 

2618 

2619 

2620 
2621 
2622 

2623 

2624 

2625 

2626 
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TST42: TEST ALL OF LINE 15 TRANSMIT AND RECEIVE LOGIC 

; 3$: CHECKS THAT NO ERRORS IN FI/FO 

4$ : CHECKS THAT RIGHT LINE # (15) IN FI/FO 

; 5$: CHECKS FOR RIGHT CHARACTER LENGTH 

• 6$: CHECKS THAT CORRECT DATA WAS RECEIVED 

; 7$: CHECKS THAT CHARACTER PRESENT CLEARS 

8$: CHECKS THAT DONE CLEARS 

; PROBABLE FAULTY LOGIC: M7285 (D2-7) ALL; M7279 ALL; UART CARD D03 SERIES 


SCO 0055 


INITIALIZE 
DEVICE"CSR' REGISTER 


TST42: JSR 


WAIT FOR MOS TO CLEAR 


3AINITD 


052777 
01 7701 
100375 
012777 
005000 
105305 
001376 
017701 
100405 
005200 
001371 
017702 
1C4002 


170654 


000377 1 70642 


1 70624 


170610 


81 S #8IT15. STCR 

L0P42: MOV 3CSR, R1 

8PL L0P42 

MOV #377, STBUF 

CLR RO 

1$: DEC8 R5 

BNE 1$ 

MOV SRBUF.RI 

8MI 3$ 

INC RO 

BNE 1$ 

MOV 5ICSR, R2 

HLT*2 


050037 

001346 

3$: 

BIS 

RO. TIMER 

032701 

070000 


BIT 

#70000. R1 

001401 



BED 

.♦4 

104001 



HLT+1 


010102 


4$: 

MOV 

R1. R2 

042702 

170377 


BIC 

#170377.R2 

000302 



SWAB 

R2 

122702 

00001 7 


CMP8 

#15., R2 

001401 



BEQ 

. *4 

104001 



HL T + 1 


117702 

170612 

5$: 

M0V8 

BDJLEN. R2 

130201 



BJTB 

R2. R1 

001401 



BEO 

.♦4 

104002 



HLTt2 



SET: 

;8IT2 

;8IT3 

;8IT8 


MAINTENANCE 
CLEAR MOS 

MASTER XMTR SCAN ENB 


SET: 

;BI TO = RECEIVER ENABLE 

;SET XMTR CONTROL BIT, LINE 15 
.-WAIT FOR XMTR READY 


SEND A RUBOUT 
CLEAR COUNTER 
SHORT WAIT LOOP 

WAIT FOR CHAR. PRES. 

BRANCH WHEN FOUND 
TIME COUNTER 
8RANCH IF NOT TIME-OUT 
SAVE CSR 

CHARACTER READY DIDN'T SET 
R1 = CONTENTS OF R8UF 
R 2 = CONTENTS OF CSR 
SAVE THE TIMER 
CHECK FOR ERROR BITS 
BRANCH IF NONE 
ERROR IN RECEIVED CHAR 
R1 = CONTENTS OF R8UF 
BIT14=UART OVERRUN 
8IT13=FRAMING ERROR 
8IT12=PARITY ERROR 
DUPLICATE DATA WORD 
MASK LINE# 

LINE # IN LOW BYTE 
CHECK LINE # 

BRANCH IF OK 
WRONG LINE # RECEIVED 
R1 = CONTENTS OF RBUF 
BITS8-11 = LINE # 

GET MASK OF CHARACTER 
CHECK CHAR LENGTH. 

BRANCH IF OK 

WRONG CHARACTER LENGTH 

R1=DATA FROM FI/FO 

R2-MASK (BITS SET NOT EXPECT^ 


ZZ-CZDJA-F-O DJ11 LOGIC TESTS 
CZDJAF.P11 26-FEB-79 '5:41 

2627 010560 1051 OP 
262b 01056 P 1P010P 
P6P9 010564 001401 

2630 010566 10400P 

2631 

2632 

P633 010570 017701 1 705P6 

P634 010574 100001 

2635 010576 104001 

2636 

2637 010600 017701 170514 

2638 010604 022701 100405 

2639 010610 001401 

2640 010612 1 04001 

2641 

2642 010614 005077 170504 

2643 010620 0C5077 170474 

2644 010624 10440C 

2645 010626 162737 000003 

2646 010634 005237 001346 

2647 010640 013700 001346 

2648 010644 006200 

2649 010646 006200 

2650 010650 005200 

2651 010652 006137 001346 

2652 010656 060037 001346 

2653 010662 0(2737 Cl 0670 

2654 

2655 

2656 

2657 
2653 

2659 

2660 
2661 
2662 

2663 010670 004737 01 4600 

2664 

2665 

2666 

2667 

2668 

2669 

2670 

2671 010674 012777 000001 

26 72 01 0702 012704 000040 

2673 C10706 017701 170406 

2674 010712 100375 

2675 010714 010477 170406 

2676 010720 005504 

2677 010722 0C1371 

2678 

2679 010724 105777 170370 

268C 010730 100375 

2681 

2682 010732 052777 OOOOIO 


E 5 
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TST42: TEST ALL OF LINE 15 TRANSMIT AND RECEIVE LOGIC 



61: 

COMB 

R 2 




CMP8 

R1 , 

R 2 



8EQ 

HLT^2 

.+4 



71: 

MOV 

3R8UF . 

R1 



BPL 

HLT>1 

. +4 



81: 

MOV 

acsR, 

R1 



CMP 

#100405 

,R1 



BEQ 

hlt+i 

.♦4 




CLR 

STCR 




TLR 

SCOPE 

SCSP 


001364 


SUB 

#3. 

DJLEN 



INC 

TIMER 




MOV 

TIMER. 

RO 



ASR 

RO 




ASR 

RO 




INC 

RO 




ROL 

TIMER 




ADD 

RO. 

TIMER 

015250 


MOV 

*.+6. 

LAD 


REVERSE THE MASK 
CHECK THE ACTURAL DATA 
BRANCH IF OK 

WRONG CHAR LEN OR DATA ERROR 
R1=DATA FROM FI/FO (COMPLETE WORD J 
R2=DATA (LOW BYTE) EXPECTED 
READ FJ/FO 

BRANCH IF CHAR PRESENT NOT SET 

CHARACTER PRESENT S T AYED SET 

R1 = CONTENTS OF RBUF 

SAVE THE CSR 

CHECK THE CSR 

BRANCH IF OK 

DONE DIDN’T CLEAR OR OTHER CSR ERROR 
R1 = CONTENTS OF CSR 
CLEAR TCR 
CLEAR CSR 


WORSE CASE TIME, ONE CHARACTER 
DUP TIMER 
/2 
/4 
♦ 1 

TIMER * 2 

2.25 TIMES ONE CHARACTER TIME 
RESET LOOP ADDRESS 


SCO 0056 


TEST 43: TEST THAT CHARACTER PRESENT (BIT15) OF RBUF 

IS CLEARED (BY CLEAR MOST. 

PROBABLE FAULTY LOGIC: M7285 (D2-8) E17.E14.E15; M?279; M7280 


INITIALIZE 


1 70422 


TST43: 

JSR 

PC,B#INITD 



SET: 

BIT2 

= MAINTENANCE 




BIT3 

= CLEAR MOS 




BIT8 

= TRANS SCAN ENABLE 




WAIT 

FOR BIT4 = MOS CLEAR 


SET: 

» 

81 TO 

- RECEIVER ENABLE 




MOV 

#91 TO, STCR 

TRANS CONTROL. 

LINED 


MOV 

#40. R4 

SET UP COUNTER 

TO OUTPUT 32 CHAR* 

1 1: 

MOV 

iCSR.Rl 

WAIT FOR TRANS 

READY 


BPL 

11 




MOV 

R4,ar6UF 

TRANSMIT COUNT 



DEC 

R4 

COUNT DOWN 



BNE 

11 



21: 

TST8 

SC SR 

MAKE SURE DONE 

IS SE T 


BPL 

21 




170360 BIS 


#BIT5.iCSR 


; CLEAR MOS 


SfcO 0057 


ZZ-CZDJA-F -0 
CZDJAF.P11 


DJll cOGIC TESTS 
P6-FE8-79 15:41 


MACY11 30A( 1052) 26-FEB-79 15:4? 

TST43: TEST CEAR MOS 


F 5 

RAGE 58 


2683 

2684 

2685 


2722 

2723 
2721. 

2725 

2726 

2727 

2 7 28 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 


010740 

010746 


032777 

001374 


000020 170352 3$: 


BIT 

8NE 


#8IT4,S)CS& 

3$ 


; WA I T FOR CLBMOS TO FINISH 


2686 

010750 

01 7701 

1 70346 

MOV 

3RBUF.R1 

CHECK R8UF AND SAVE 

2687 

010754 

100001 


B D l 

. + 4 


2688 

010756 

104001 


HLT>1 



2689 

010760 

017701 

170334 

MOV 

arsR.R 1 

SAVE CSR 

2690 

010764 

022701 

100405 

CMP 

# 1 00405 ,R1 

CHECK CSR 

2691 

010^70 

001401 


8FQ 

.♦4 

BRANCH IF OK 

2692 

010772 

IOuOOI 


HL T*1 


CSR ERROR. POSSIBIL I TES; 

2693 






(1) DONE D'DNT CLEAR 

2694 







2695 






(2) TRANSMITTER UART DIDN 

2696 






R1=C0NTENTS OF CSR 

2697 







2698 

010774 

013700 

001346 

MOV 

TIMER. RO 

■SET UP TIMER 

2699 

Cl 1000 

105305 


44: DECS 

R5 

SHORT WAIT LOOP 

2700 

011002 

001376 


BNE 

44 


2701 







2702 

011004 

017701 

170310 

MOV 

atSR.RI 

SAVE CSR 

2703 

011010 

105701 


TST8 

R1 

CHECK FOR DONE 

2704 

011012 

100001 


BPl 

.♦4 

BRANCH IF OK 

2705 

011014 

104001 


HL T * 1 


DONE CAME UP! 

2706 






MOS MUST NOT HAVE CLEARED 

2707 

0H016 

005300 


DEC 

RO 

TIMER COUNT 

2708 

011020 

C01 367 


BNE 

44 


2709 







2710 

011022 

022701 

100405 

CMP 

#100405, R1 

CHECK CSR 

2711 

011026 

001401 


BEQ 

.♦4 

BRANCH IF OK 

2712 

011030 

104001 


HL T* 1 


CSR ERROR 

2713 







2714 

011032 

017701 

170264 

MOV 

3R8UF ,R1 

CHECK R8UF 

2715 

011036 

100001 


QPL 

.*4 

BRANCH IF OK 

2716 

011040 

104001 


hlt«-i 


RBUF not empty: 

2717 







2718 

011042 

005077 

1 70256 

CLR 

3UR 


2719 

01 1046 

005077 

1 70246 

CLR 

3CSR 


2720 







2721 

011052 

104400 


SCOPE 




TEST 44: TEST THAT TRANSMITTER READY CLEARS WHEN TBUf ■;> lOADFD 

NOTE: DUE TO THE DOUBLE BUFFERING BY THE UART. tgo CHARACTERS 

MUST BE LOADED TO INSURfc SEEING TRANSMITTER READY CLEAR 
PR08A8LE FAULTY LOGIC: M7285 (D2-6> F39. E23. E49 


011054 004737 014600 


INITIALIZE 
DEVICE'TSR* REGISTER 


TST44: JSR 


PC.3AJNITD 


;WAJT FOR MOS TO CLEAR 


SET: 

8I T 2 
8IT3 
81 T8 

SET: 


MAINTENANCE 
CLEAR MOS 

WASTE 0 KM T R SCAN ENfc 


ZZ-CZDJA-F-0 DJ11 LOGIC TESTS 

MAC Yl 1 

30A(i052; 

i 26-FEB-79 15:4? Pi 

CZDJAF. 

.PI 1 26-FEB-79 

15:41 


TST44: 

TF ST TRANSMIT READY 

9 

2?40 

2741 





• 



0HO60 

052777 

000001 

170236 

0 

BIS 

#81 TO. alTCR 

2742 

011066 

01 770 1 

1 70226 


IS: 

MOV 

SCSR. R1 

27 43 

011072 

100375 




BPL 

IS 

2744 

01107a 

012777 

ooooo 

1 70224 


MOV 

#1 . 3TBUF 

2745 

011102 

017701 

170212 


2S: 

MOV 

SCSR. R1 

2746 

011106 

100375 




BPL 

2S 

274? 

011110 

012777 

000002 

170210 


MOV 

#2. aTBUF 

27 48 

011116 

01 7701 

1701?6 



MOV 

aCSR. R1 

2749 

011122 

100001 




BPL 

.♦4 

2750 

01H24 

104001 




HL T ♦ 1 


2751 







TIMER. RO 

2752 

0H126 

Ul 3700 

001346 



MOV 

2753 

011132 

105305 



3S: 

DECS 

R5 

2754 

011134 

001376 




BNE 

3S 

2755 

011136 

017701 

170156 



MOV 

SCSK, R1 

2756 

011142 

000400 




BR 

.♦2 

2757 

0 ill 44 

005300 




DEC 

RO 

2758 

011146 

001371 




BNE 

34 

2759 







#BI T7.R1 

2760 

011150 

042701 

000200 



BJC 

2761 

011154 

022701 

100405 



CMP 

#1 00405. R1 

2762 

011160 

001401 




BEQ 

.♦4 

2763 

2764 

2765 

2766 

011162 

104001 




hlt»i 


011164 

017701 

170132 



MOV 

SRBUF. R1 

2767 

011170 

100401 




BMI 

. +4 

2768 

011172 

104001 




HLT«-1 


2769 







#100001 ,R1 

2770 

011174 

022701 

100001 



CMP 

2771 

011200 

001401 




BEQ 

. *-4 

277? 

011202 

104001 




HL T ♦ 1 


2773 







SRBU* . R1 

2774 

011204 

017701 

170112 



MOV 

2775 

011210 

100401 




BMI 

. *4 

2776 

011212 

104001 




hlt+i 


2777 







#T00002.R1 

2778 

011214 

022701 

100002 



CMP 

2779 

011220 

001401 




BEQ 

. »4 

2780 

2781 

2782 

011222 

104001 




HL T ♦ 1 


011224 

017701 

1700?2 



MOV 

SRBUF , Rl 

2783 

011230 

100001 




BPL 

. +4 

2784 

011232 

104001 




HLT*1 


2785 







SCSR, PI 

2786 

011234 

017701 

1 70060 



MOV 

2787 

011240 

022701 

100405 



CMP 

#1 00405. Rl 

2788 

011244 

001401 




BEQ 

.♦4 

2789 

2790 

2791 

011246 

104001 




HL T + 1 


011250 

005077 

1 70050 



CLR 

STCR 

279? 

011254 

005077 

1 7Q040 



CLP 

ar sr 

2793 

011260 

104400 




SCOPF 



2794 


59 


$F- 0058 


;8J TO - RECEIVER ENABLE 

;TRANS CONTROL, LINE 0 
.-WAIT FOR XMTR READ* 

; TRANSMIT A 1 
,-WAJT FOR XMTR READY 

.TRANSMIT A 2 

.-CHECK FOR XMTR READY 

.-BRANCH XMTR READY CLEARED 

.-transmitter READY FAILED TO tlear 
;R1 = CONTENTS OF CSR 
.-SET UP TIMER 
.-SHORT WAIT LOOP 

.-SAVE CSR FOR THE RETQRD 
;NOP FOR TIMING 
.-TIMER COUNT 
.-BRANCH IF MORE TIME 

.-DONE MAY OR HAY NOT BE SET SO DONT TEST FOP IT 
.-TEST REST OF THE CSR 

; A CSR ERROR 

;R1 = CONTENTS OF CSR 

.-CHECK R8UF FOR CHAR PRESENT 

.-BRANCH IF CHAR PRESENT 

.-CHAR PRESENT MISSING 

;R1 = CONTENTS OF R8UF 

.-CHECK THE DATA 

.-BRANCH IF OK 

.RECEIVER ERROR 

;R1 = CNTENTS OF RBUF 

.-CHECK R8UF FOR SECOND CHAR 

.BRANCH IF CHAR PRE Sc NT 

.-CHAR PRESENT MISSING 

;R1 = CONTENTS OF RBUF 

.-CHECK THE DATA 

.-BRANCH IF OK 

.RECEIVER ERROR 

;R1 r CNTENTS OF RBUF 

.-CHECK FOR NO MORE CHARACTERS 

.-BRANCH IF CHAR PRESENT CLEARED 

;CHAR PRESENT NOT CLEAR! 

;R1 = CONTENTS OF RBUF 
.-SAVE CSR 
; CHECK CSR 
.-BRANCH IF OK 
; CSR ERROR 

;R1 = CONTENTS 0' CSR 
.-CLEAR TCR 
; CL FAR CSR 


?z-czDjA-r-o 

KZDJAF.P11 


279 5 

2796 

2797 

2798 
2^99 
2800 
2801 
2802 
<^803 

2804 

2805 

2806 
2807 
2805 

2809 

2810 
2811 
2812 

2813 

2814 

2815 

2816 
2817 
2815 

2819 

2820 
2821 
2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 
285C 


DJ1 1 LOGIC TESTS MACY11 
26-FEB-79 15:41 
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TST45: TEST SILO ALARM LEVFL / RECEIVER ENABLE 


SEO 0059 


TEST 45: TEST THE SILO ALARM LEVEL AT WHICH DONE WILL SET. 

TEST THAT RECEIVER ENABLE ON A 0 INHIBITS 
CHARACTER PRESENT 

PROBABLE FAULTY LOGIC: M7285 '02-7) E32. El 5; M7279 (Dll -3) E19.E23 


DEVICE 


INITIALIZE 
’C SR 1 REGISTER 


01 1 262 

GC4 7 37 

014600 


TST45: 

JSR 

PC.A#INITD 





;WAJ T FOR MOS 

■ 

TO CLEAR 


011266 

052777 

000001 

170030 

• 

BIS 

#8JT0. 

ATCR 

G11274 

005737 

001 350 



TST 

almflg 


011300 

001005 




BNc 

11$ 


011302 

004737 

014644 



JSR 

pc.almc 

K 

011306 

012737 

000001 

001350 


MOV 

#l AlM*LG 

OT’314 

012777 

000414 

167776 

US: 

MOV 

#414, 

AC SR 

011322 

032777 

000020 

167770 

10$: 

BIT 

#81 T4. 

AC SR 

011330 

001374 




8NE 

10$ 






.•OUTPUT 

THE # 

OF CHARACTERS N 





.'LEVEL 

TO ALOW DONE TO 

SET. 

011332 

013702 

001356 



MOV 

COUNT, R2 

011336 

017701 

167756 


1$: 

MOV 

AC SR, 

R1 

01 1342 

100375 




BPL 

1$ 


011344 

012777 

000252 

167754 


MOV 

#25 2. 

AT8UF 

011352 

005302 




DEC 

R 2 


01 1 354 

001370 




6NE 

1$ 


011356 

013700 

001346 



MOV 

TIMER. 

RC 

01 i 362 

105305 



2$: 

DECS 

R5 


011364 

001376 




8NE 

2f 


011366 

01^701 

167726 



MOV 

AC SR. 

R1 

011372 

105701 




TST8 

R1 


011374 

100002 




BPL 

3$ 


011376 

104001 




HLT«-1 



C11400 

000402 




BR 

4$ 


011402 

005300 



3$: 

DEC 

RO 


011404 

001366 




BNE 

2$ 


011406 

017701 

167710 


4$: 

MOV 

AR8UF , 

R1 

011412 

100001 




BPL 

.♦4 


011414 

104001 




HLT*1 



011416 

005277 

167676 



JNC 

AC SR 


O 1 1422 

017701 

167674 


5$: 

MOV 

AR8UF. 

R1 

011426 

100403 




6MI 

6$ 


011430 

105300 




DEC8 

RO 


011432 

001373 




BNE 

5$ 


011434 

104001 




HL T »1 




SET: 
;8IT2 
;BIT3 
;BI T8 


MAINTENANCE 
CLEAR MOS 

MASTSR XMTR SCAN EN6 


8i T C - RECEIVER ENABLE 

TRANS CONTROL, LINE 0 

HAS THE ALARM LEVEL BEEN TESTED? 

YES 

NO, GO DO IT 

SET THE FLAG 

81 T2 = MAINTENANCE 

81 T3 = CLEAR MOS 

81 T8 = MASTER TRAN SCAN EW 

WAIT FOR MOS TO CLEAR 


;S£T CHAR COLTJT 
.-WAIT FOR XMTR READY 


.SEND AN 


;SET UF TIMER 
.-SHORT WAIT LOOP 

.-SAVE CSR C 0R 1YPING 
.'CHECK FOR DONE 
.•BRANCH IF NOT SET 
.'DONE SET WHEN RCV ENB f LR 
;R1=C0NTENTS OF CSR 

.TIMER COUNT 
.'BRANCH IF MORE TIMER 

.'CHECK AND SAVE FI/FO 
; BRANCH IF OK 

.•CHARACTER PRESENT IN M/FQ 
;R1=DATA FROM FI/FO 
.'SET RECEIVER ENABLE 
.'CHECK FOR CHARAC T ER PRESENT 
.-BRANCH IF OK 
.-SHORT TIMER 


.'CHARACTER PRESENT MISSING 



ZZ-CZDJA-F-0 

DJI 1 LOGIC TESTS 

MACVll 

30A(1052) 26- 

F E8-79 15 

I 5 

: 4 7 PAGE 
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CZDJAF 

pii 

26-FEB-79 

15:41 


TS T 45 : 

TEST 

SILO ALARM 

LEVE1 / R 

ECtIVER ENABLE 

SEO 0060 

2851 









R1 = CONTENTS OF R8U F 


2852 

011436 

005077 

167662 


6$: 

CLR 

STCR 


CLR TRANS CONTROL REo 


2853 











2854. 

0H442 

104400 




SCOPE 





2855 











2856 





4 ^ ^ 






2857 





; TEST 46: 

TEST THAT HALF DUPLEX (8IT1) DISABLES THE RFCEIVffi UARTS. 


2858 





.-PROBABLE FAULTY LOGiC: 

M7285 (D2-41 E32, El 7, £22, <D2-2> F5, £1 


2859 





• ******************** *** ************************************************ 


2860 











2861 

01 1444 

004737 

014570 


TST46: 

JSR 

PC. 

i#INJTC 

INITIALIZE 


2862 









BIT1 = HALF DUPLEX 


2863 









81 T 2 - MAINTENANCE 


2864 









8113 = CLEAR MOS 


2865 









81 T8 = MASTER TRAN SCAN EN6 


2866 









WAIT FOR MOS T 0 CLEAR 


2867 









81 TO = RECEIVER ENABLE 


2868 

011450 

012777 

000001 

167646 


MOV 

#81 TO. 

aTCR 

SET XMTR CONTROL BIT. lINEO 


2869 





.-OUTPUT 

THE # 

OF CHARACTERS NECESSARY F 0R THE SILO A^ARM 


2870 





.•LEVEL 

TO ALOW DONE TO 

SET. 



2871 

011456 

013702 

001356 



MOV 

COUNT. R2 

SET CHAR COUNT 


2872 

011462 

017701 

167632 


1$: 

MOV 

8CSR. 

R1 

•WAIT FOR XMTR READY 


2873 

011466 

100375 




BPL 

1$ 




2874 

011470 

012777 

000252 

167630 


MOV 

#252. 

aTBUF 

•SEND AN 


2875 

011476 

005302 




DEC 

R2 




2876 

011500 

001370 




BNF 

1$ 




2377 

011502 

01 3700 

001 346 



MOV 

TIMER. 

RO 

SET UP TIMER 


2878 

011506 

105305 



2$: 

DECS 

R5 


SHORT WAIT LOOP 


2879 

011510 

001376 




BNE 

2$ 




2880 

011512 

01 7701 

167602 



MOV 

acsR. 

Ri 

SAVE CSR 


2881 

011516 

105701 




TST8 

R1 


CHECK FOR DONE 


2882 

011520 

100002 




BPL 

31 


BRANCH IF NOT SET 


2883 

011522 

104001 




HLT*1 



DONE SET WHEN HALF DUPLEX (81 H) SET 


2884 









R1 CONTENTS OF CSR 


2885 

011524 

000402 




BR 

41 




2886 

011526 

005300 



3S: 

DEC 

RO 


TIMER COUNT 


c8 87 

011530 

001366 




BNE 

21 


BRANCH IF MORE TIMER 


2888 











2889 

011532 

017701 

167564 


4$: 

MOV 

aRSUF, 

R1 

CHECK AND SAVE FI/FO 


2890 

011536 

100001 




bpl 

.♦4 


BRANCH IF OK 


2891 

011540 

104001 




HL T +1 



CHARACTER PRESENT IN FI/FO 


2892 









R1=DATA FROM FI/FO 


2893 

011542 

042777 

000002 

167550 


BIC 

#8!T1, 

acsR 

CLEAR HALF DUPLEX BIT 


2394 

011550 

000240 




NOP 





2895 

011552 

000240 




NOP 





2896 

011554 

000240 




NOP 





2897 

0"1556 

000240 




NOP 





2898 

011560 

01 7701 

167536 


5$: 

MOV 

aR8UF, 

R1 

CHECK FOR CHAR PRESENT 


2899 

011564 

100001 




PPL 

.♦4 


BRANCH IF CHAR NOT PRESENT 


2900 

011566 

104001 




HI T*1 



CHAR PRESENT AUER H/D CLEARED 


2901 









R1 = CONTENTS OF RBUF 


2902 

011570 

005 077 

16753C 



ClR 

aTCR 


CLR TRANS CONTROL REG 


2903 











2904 

011574 

104400 




SCOPE 





2905 











<:VUO 





****** 

0 

****** 






IZZ-CZDJA-F-0 

CZDJAF.P11 


2907 

2908 

2909 

2910 

2911 

2912 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 


DJI 1 LOGJC TESTS 
26-FEB-79 15:41 


011576 

011604 

011612 

011620 

011o26 

011632 

011640 


012777 
012777 
012737 
012737 
005337 
Cl 3737 
004737 


01 1644 
011652 
011660 


MACY11 30A<1052) 26-FE9-79 15:47 PAGE 62 

TST47: TEST RECEIVER INTERR JPT lEVEl 


SEC 0061 


TEST 47: 


RECEIVER INTERRUPT LEVEL 


ERROR PRINT OUT IS AS FOLLOWS:::: 

ADDR DJADR RO R1 

ADDR= ADDRESS OF ERROR HLT 
DJADR= CSR ADDRESS OF DJ1 1 UNDER TEST 
R1- BR LEVEL FOR DJl 1 TO ALLOW INTR 
R2= 8R LEVEL WHERE ERROR OCCURED 

; PROBABLE FAULTY LOGIC: M7821 WIRING, PRGPH PRIORITY CHIP 

•ft********************************************************************** 


011736 
000340 
00001 C 
000005 
017214 
017214 
014464 


167524 

167520 

017214 

017226 

017216 


TST47: 


AGAIN2: 


»INTR2.u RCVVEC 

#34Q,3RCVLVL 

#10.PRI0L0 

#5.CT 

PRIOLO 

PR I OL 0 , NOW 

PC. BRSET 


042737 000340 
053737 017216 
004737 014560 


177776 

177776 


#340.a#PS 

NOW,a#PS 

PC, a#INITR 


011664 012777 000001 167432 


.•OUTPUT 

.-LEVEL 


#8IT0. BTCR 


SET UP RCVR INTERRUPT VECTOR 
AT LEVEL 7 

LOAD BR7+1 INTO BR TEST LEVEL 
LOADS COUNTER FOR 5 RCL -BR 
START TEST BR7, THEN BR6.8R5. . .ETC . 
LOAD PRE-ROL-ED DECIMAL PR 10 
GO TO SUBROUTINE TO :::::: 

LOAD BR INTR LEVEL OF DJI 1 
(LEVEL)= DECIMAL #(0 TO 7) 

(MASK)= OCTAL #(0 TO 340) 
(0.40,100,140,200,240,300.340) 
(NOW)= OCTAL #(0 TO 340) AS 
MASK. BUT CURRENTLY TESTING 
CLEAR PS LEVEL 

SE1 PS TO CURRENT TEST LEVEL 
SET: 

81 T2 = MAINTENANCE 
BIT3 = CLEAR MOS 
BIT6 = RECEIVER INTERUPT ENABLE 
BIT8 = MASTER TRANS SCAN ENABLE 
WAIT FOR MOS TO CLEAR 
BITO = RECEIVER ENABLE 
SET TRAN CONTROL BIT, LINE 0 


THE # Of CHARACTERS NECESSARY FOR THE SILO ALARM 
TO ALOW DONE TO SET. 


2944 

011672 

013702 

001356 



MOV 

COUNT. R2 

; SET CHAR COUNT 

2945 

011676 

01 7701 

167416 


1$: 

MOV 

iCSR, R1 

; WAIT FOR TRAN RDY 

2946 

011702 

100375 




8PL 

If 


2947 

011704 

012777 

000025 

■•67414 


MOV 

#25. &TBUF 

.-SEND #25 

2948 

011712 

005302 




DEC 

R2 


2949 

011714 

001370 




BNE 

1$ 


2950 

011716 

1057/7 

167376 


2$: 

TST8 

scsr 

.-WAIT FOR DONE 

2951 

011722 

100375 




BPl 

25 


2952 

011724 




NINTR2: 



2953 






; if 

YOU ARE HERE NO INTR OCCURED 

2954 









2955 

011724 

023737 

017216 

017220 


CMP 

NOW. MASK 

; IS THIS AN ERROR??? 

2956 

011732 

002407 




BLT 

ERROR? 

; BRANCH IF YES 

2957 

011734 

000417 




BR 

THRU? 

; IF NO. GO ON NEXT BR 

2958 








2959 

011736 




INTR2: 

# 



2960 






§ 

IF YOU ARE HERE 

AN INTR OCC'JRED 

2961 

011736 

022626 




CMP 

(SPJMSP)t 

; CLEAN UP T HE STACK 

2962 

011740 

023737 

017216 

017220 


CMP 

NOW, MASK 

; IS THIS AN ERROR??? 


ZZ-CZDJA-F-0 DJ1 1 LOGIC TESTS 
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T S T4 7 : TEST RECEIVER INTERRUPT LEVEL 


S EG 006c 


7963 

2964 

2965 

2966 
?967 
29e>8 
2<*>9 
?970 

2971 

2972 

2973 
297 L, 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

2983 

2984 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 
5002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 


01 1 746 
01 1 7 50 

011752 


011752 

011754 

011756 

O'* 1 762 


002001 

000411 


010146 

010246 

01 3701 

01 3702 


011766 104002 


01 1 770 
01 1 772 

01 1 774 

011774 

012000 

012002 

012004 

012010 

012012 


012014 

012020 

012024 

012030 

012032 

012040 

012046 


01 2602 
012601 


017701 

100401 

104001 

022701 

001401 

104001 


005077 

005077 

005737 

001273 

013777 

012777 

042737 


012054 104400 


ERR0R2 

THRU2 


BRANCH IF ERROR 

IF NO. SEE IF AlL BR LEVELS TESTED 


error; 




MOV 

Rl.-(6) 



MOV 

R2.-C6) 

01 7220 


MOV MASK 

;. Ri 

Cl 7216 


MOV NOW. 

R2 



HL T + 2 




MOV 

(6 )*.R2 



MOV 

(6) ♦ ,R1 


THRU2: 



167322 


MOV 

8R6UF, RI 



BMI 

. >4 



hlto 


100025 


CMP 

#1 00025. Ri 



BEO 

. *4 



HLT*1 


167304 


CLR 

2TCR 

167274 


CLR 

acsR 

017216 


TST 

NOW 



8NE 

AGAIN2 

001332 

167270 

MOV 

RCVLVL .3RCVVEC 

000004 

167270 

MOV 

01 OT, axMTLVL 

000340 

1 77776 

8IC 

#340.a#ps 



SCOPE 



IF YOU ARE HERE . THEN SOMETHING IS WRONG 
ERROR! 


; PUSH R1 ON STACK 
.-PUSH R2 ON STACK 

; R1=8R LEVEL ALLOWED 
; (BR BITS OF PSW) 

; R2=8fi LEVEL OF ERROR 
; (8R BITS OF PSW) 

; REPORT ERROR ♦ REG. 0.1 


;POP STACK INTO R2 
;POP STACK INTO R1 


READ THE CHARACTER 
BRANCH IF CHAR PRESENT 
CHAR PRESENT MISSING 
R1= CONTENTS OF R8UF 
CHECK THE DATA 
BRANCH IF OK 
RECEIVED DATA ERROR 
R1 = CONTENTS OF R8UF 


TEST IF LAST BR WAS CHECKED 
BACK TO TEST NEX T INTR LOWER 
(NOW) = 0 

RELOAD AND CLEAN UP 


TEST 50: TEST fl/FO OVERRUN 

THE fl/FO BUFFER SHOULD HOLD CHARACTERS. 
PROBABLE FAULTY LOGIC: M7285 CD1-?) E32. E17. E22 (D2-2) ES. F 


012056 004737 014600 


TST50: 


INITIALIZE 
DEVICE ,, CSR’ REGISTER 

SET: 

J SR PC. 8# 1 N I T D ;8IT2 •- 

.-BIT 3 = 


MAINTENANCE 
CtEAR MOS 


7Z-CZDJA-F-0 

DJ11 LOGIC TESTS 

MACYl 1 

L 5 

30A( 1052) 26-FE8-79 15.47 PAGE 

64 

SEQ 0063 

CZDjAF . 

P11 

Z6-FEB-79 

15:41 


TST50: 

TEST 

: l/FO OVERRUN 


5019 








81 T8 = MASTFR XMTR SCAN EN8 


3020 





.-WAIT 

FOR MOS 

TO CLEAR 



3021 







S 

ET: 


3022 

3023 

3024 





» 



81 TO = RECEIVER ENABLE 


012062 

012777 

177777 

167234 

• 

MOV 

#1 77777, 5)TCR 

TRANS CONTROL BIT, ALl LINES 


3025 

012070 

012700 

000100 



MOV 

#100. RO 

SET UP COUNTER - 64. CHAR FI/FO BUFF 


3026 

012074 

017701 

167220 


1$: 

MOV 

SCSR. R 1 

SAVE AND WAIT FOR TRANS READY 


302? 

012100 

100375 




BPL 

1$ 



3028 

012102 

000377 

Io7220 



SWAB 

ST8UF 

TRANSMIT LINE # ON LINE 


3029 

012106 

032701 

020000 



BIT 

#BJ T1 3, R1 

CHECK FI/FO OVERRUN 


3030 

012112 

001401 




BEQ 

.♦4 

BRANCH IF OK 


3031 

012114 

104001 




HLT + 1 


FI/FO OVERRUN TOO SOON 


3032 








R1=C0NTENTS OF CSR 


3033 

012116 

005300 




DEC 

RO 

COUNT DOWN 


3034 

012120 

001365 




BNE 

1$ 



3035 










3036 

012122 

013700 

001 346 



MOV 

TIMER, RO 

SET up TIMER 


3037 

012126 

017701 

167166 


2$: 

MOV 

SCCR, R1 

•WAIT FOR XMTR READY 


3038 

012132 

100375 




BPL 

2$ 



3039 

012134 

105305 



3$: 

DECS 

R5 

SHORT WAIT LOOP 


3040 

012136 

001376 




BNE 

3$ 



3041 

012140 

Cl 7701 

167154 



MOV 

SCSR. R1 

SAVE CSR FOR THE RECORD 


3042 

012144 

100401 




BMI 

♦4 

•BRANCH IF TRANS READY 


3043 

012146 

104001 




HLT + 1 


•TRANS READY MISTERIOUSLY DISAPPEARED 


3044 







;RT=CONTENTS OF CSR 


3045 

012150 

005300 




DEC 

RO 

T IME 3 CHARACTER LENGTHS 


3046 

012152 

001370 




BNE 

3$ 

.•BRANCH IF MORE TIME 


3047 










3048 





;F l/FO SHOULD 

NOW BE FULL 



3049 










3050 

012154 

105701 




TSTB 

R1 

CHECK THAT DONE IS SET 


3051 

012156 

100401 




8MI 

.♦4 

BRANCH IF OK 


3052 

012160 

104001 




HlT+1 


DONE DIDN’T COME 'JP! 


3053 








R1 = CONTENTS OF CSR 


3054 

012162 

022701 

100605 



CMP 

#100605. R1 

CHECK THAT FI/FO NOT OVERRUN 


3055 

012166 

001401 




BEQ 

.♦4 

8RANCH IF OK 


3056 

012170 

104001 




HLT*1 


FI/FO OVERRUN SET 


3057 








OR SOME OTHER CSR ERROR 


3058 








R1=C0NTENTS OF CSR 


5059 




















3061 





.-TEST 

50A: 

TEST THAT FI/FO OVERRUN COMES UP WHEN 65TH CHARACTER 


3062 





0 


IS RECEIVED WITHOUT READING FI/FO 


3063 

3064 

3065 





0 





Cl 21 72 

000377 

167130 


T50A: 

SWAB 

aieuF 

SEND 65 TH CHARACTER 


3066 

012176 

013700 

001346 



MOV 

TIMER. RO 

SET UP TIMER 


3067 

012202 

105305 



11$: 

DECS 

R5 

SHORT WAIT LOOP 


3068 

012204 

001 376 




BNE 

11$ 



3069 

012206 

01 7701 

167106 



MOV 

5CSR.R1 

SAVE CSR 


3070 

012212 

032701 

020000 



BIT 

#81 T1 3.R1 

CHECK FI/FO OVERRUN 


3071 

012216 

001003 




BNE 

12$ 

BRANCH WHEN SET 


3072 

012220 

005300 




DEC 

RO 

TIMER 


3073 

012222 

001367 




BNE 

11$ 

BRANCH IF MORE TIME 


3074 

01 2224 

104001 




HL T + 1 


FI/FO OVERRUN DIDN’T r QME uP 
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TST50: TEST FJ/FO OVERRUN 


SEO 0064 


3075 

3076 
3C77 

3078 

3079 

3080 

3081 
308? 

3083 

3084 

3085 

3086 
308 ^ 
3088 
7089 

3090 

3091 

3092 

3093 

3094 

3095 
30% 

3097 

3098 

3099 

3100 

3101 


012226 

012232 

012234 


022701 

001401 

10400 1 


120605 


CMP 
BEG 
HLT + 1 


#120605, R1 
, +4 


R'l = CONTENTS OF C SR 
CHECK TOTAL CSR 
BRANCH IF OK 

SOMETHING IN CSR FOULED UP 
RUCONTENTS OF CSR 


TEST 5 OB: TEST THAT READING THE RECt I VER BUFFER CAUSES FI/FO 

OVERRUN TO CLEAR. 

NOTE: BECAUSE OF TIMING OF THE FI/FO. FI/FO OVERRUN CAN COME 

BACK UP AFTER READING ONE CHARACTER, SO A SECOND MUST 
BE READ TO INSURE THAT FI/FO OVERRUN IS CLEAR. 
*********************************************************************** 


NOTE : 


012236 

012242 

012246 

012250 

012252 

012256 

012260 


012700 

017701 

100401 

104001 

032701 

001401 

104001 


000002 

167054 


070000 


T50B: 

21 $: 


MOV 
MOV 
BMI 
HLT + 1 

BIT 
BEQ 
HLT + 1 


#2. RO 
SRBUF , R1 
.♦4 


#070000. R1 
.+4 


3102 

012262 

010102 



MOV 

R1. R2 

3103 

012264 

000302 



SWAB 

R2 

3104 

012266 

042702 

1 77760 


BIC 

#1 77760. R2 

3105 

012272 

120102 



CMPB 

R1. R2 

3106 

012274 

001401 



BEO 

.+4 

3107 

012276 

104001 



HLT+1 


3108 







3109 







3110 

012300 

005300 


22$: 

DEC 

RO 

3111 

012302 

001403 



BEO 

24$ 

3112 

012304 

105305 


23$: 

DECS 

R5 

3113 

012306 

001376 



8NE 

23$ 

3114 

012310 

000754 



8 R 

21$ 

3115 







3116 

012312 

017701 

1 6 7 002 

24$: 

MOV 

SC SR, R1 

3117 

012316 

022701 

100605 


CMP 

#1 00605, R1 

3118 

012322 

001401 



BEO 

.+4 

3119 

012324 

104001 



HLT+1 



SET UP COUNTER - 2 CHARACTERS 
CHECK AND SAVE FIRST CHAR IN FI/FO 
BRANCH IF CHAR PRESENT 
CHARACTER PRESENT GONE I 

CHECK RECEIVER ERRORS 
BRANCH IF OK 
RECEIVER ERROR 
R1=C0NTENTS OF R9UF 
81 T14=UAflT OVERRUN 
8IT13=FRAMMING ERROR 
81 T1 2=PARI TV ERROR 

PUT LINE # IN R 2 


CHECK DATA (=LINE#> 

BRANCH IF OK 
WRONG DATA RECEIVED 
R1=FI/F0 DATA 
(DATA SHOULD=LINE#> 

COUNT CHARACTERS 
BRANCH WHEN DONE 

SHORT WAIT LOOP - GIVE FI/FO TI#E 
GO READ ANOTHER 
SAVE CSR 

CHECK THAT FI/FO OVERRUN CLEARED 
BRANCH IF OK 
FI/FO OVERRUN DIDN’T CLR 
OR SOMEOTHER CSR PROBLEM 
R1 CONTENTS OF CSR 


012326 

012334 


TEST 50C: TEST THAT FI/FO OVERRUN INTERRUPT 

DOESN’T OCCUR WHEN THE PROCESSOR IS AT LEVEL 5 


042737 

052737 


000340 

000240 


177776 T50C 
1 777/6 


#340, 

#240. 


.•CLEAR PSW 

;SET PROCESSOR TO LEVEL 5 


N 5 
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15:41 


TST50: 

TEST FI/FO OVERRUN 


3131 

012342 

012777 

012432 

166700 


MOV 

#32$. aRCVVEC 

SET UP RECEIVER INTERRUPT VEC 

3132 

012350 

012777 

000340 

166754 


MOV 

#340, 3RCVLVL 

SET STATUS ENABLE 

3133 

012356 

052777 

010000 

166734 


BIS 

#81 T1 2. 3CSR 

3134 

012364 

01 7701 

166730 



MOV 

aCSR, R1 

SAVE CSR 

3135 

012370 

022701 

110605 



CMP 

#110605. R1 

CHECK CSR 

3136 

012374 

001401 




BEQ 

.+4 

CSR ERROR 

3137 

012376 

104001 




HLT + 1 


3138 






R1=C0NTENTS OF CSR 

3139 

012400 

000377 

166722 



SWAB 

aTBUF 

SEND LINE # 

3i40 

012404 

005777 

166710 


30$: 

TST 

acsR 

WAIT FOR TRANSMITTER READY 

3141 

012410 

100375 




BPL 

30$ 

SEND LINE # 

3142 

0 1 2412 

000377 

166710 



SWAB 

areuF 

3143 

012416 

017701 

166676 


31$: 

MOV 

acsR, R1 

SAVE CSR 

3144 

012422 

032701 

020000 



BIT 

#8IT13, R1 

WAIT FOR FI/FO OVERRUN 

3145 

012426 

001 77 * 




BEQ 

31$ 


3146 

3K7 

3148 

012430 

000410 




BR 

33$ 

SKIP I SR 

012432 

017701 

166662 


32$: 

MOV 

acsR, R1 

SAVE CSR 

3149 

012436 

104001 




HLT + 1 


INTERRUPT OCCURRED AT LEVEL 5 

3150 

012440 

005777 

166656 



TST 

3RBUF 

"POP” ONE CHARACTER 

3151 

012444 

012716 

012456 



MOV 

#34$. (SP> 

RESET RETURN ADDRESS 

3152 

3153 

3154 

012450 

000002 




RTI 


return 

012452 

012700 

000002 


33$: 

MOV 

#2. RO 

SET UP roUNTER - 2 CHARACTERS 

3155 

012456 

01 7701 

166640 


34$: 

MOV 

3R8UF , R1 

READ ONE CHARACTER 

3156 

012462 

100401 




BMI 

.♦4 

BRANCH IF CHARACTER PRESENT 

315,' 

3158 

3159 

3160 

012464 

104001 




HLT+-1 



012466 

032701 

070000 



BIT 

#70000. R1 

.'CHECK ERRORS 

3161 

012472 

001401 




BEQ 

. *4 


3162 

3163 

3164 

012474 

104001 




HLT + 1 



012476 

010102 




MOV 

R1. R2 

;DUP DATA 

3165 

012500 

000302 




SWAB 

R2 

;CLR ALL BUT LINE # 

3166 

012502 

042702 

1 77760 



BIC 

#1 77760. R2 

3167 

012506 

120102 




CMP8 

R1 , R 2 

.-CHECK DATA 

3168 

012510 

001401 




BEQ 

. *4 


3169 

3170 

3171 

012512 

104001 




HLT*1 



012514 

005300 




DEC 

RO 

.'COUNT CHARACTERS 

3172 

012516 

003403 




BLE 

36$ 

; BRANCH IF DONE 

3173 

012520 

105305 



35$: 

DECS 

R5 

.-SHORT WAIT LOOP 

3174 

012522 

001376 




BNE 

35$ 

;G0 READ ANOTHER CHARACTER 

3175 

3176 

3177 

012524 

000754 




BR 

34$ 

012526 

017701 

166566 


36$' 

MOV 

acsR, R1 

.'SAVE CSR 

3178 

012532 

022701 

110605 



CMP 

#1 10605. SI 

.'CHECK THAT FI/FO OVERRUN CLEARED 

31 79 

012536 

001401 




BEQ 

. +4 

.'BRANCH IF OK 

3180 

012540 

104001 




HI T + 1 


;FI/F 0 OVERRUN DIDN'T CLR 

3181 






;0R SJMEOTHER CSR PROBLEM 

3182 








;R1=C0NTEN1S OF CSR 


3183 

3184 

3185 

3186 


SEG 0065 
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TEST 50D: TEST THAT FI/FO OVERRUN INTERRUPT 

OCCURS WHEN PROCESSOR IS AT LEVEL 4 • 


B 6 
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3187 

3188 

3189 012542 042737 

3190 012550 052737 

3191 012556 012777 

3192 012564 017701 

3193 012570 022701 

3194 012574 001401 

3195 012576 104001 
5196 

3197 012600 000377 

3198 012604 005777 

3199 012610 100375 

3200 012612 000377 

3201 012616 017701 

3202 012622 032701 

3203 012626 001773 

3204 012630 104001 

3205 

3206 012632 052777 

3207 012640 000470 

3208 

3209 012642 017701 

3210 012646 022701 

3211 012652 001401 

3212 012654 104001 

3213 

3214 012656 012700 

3215 012662 017701 

3216 012666 100401 

3217 012670 104001 

3218 

3219 012672 032701 

3220 012676 001401 

3221 012700 104001 

322? 

3223 Cl 2702 01010? 

3224 012704 000302 

3225 012706 042702 

3226 012712 120102 

3227 012714 001401 

3228 012716 104001 

3229 

3230 012720 017701 

3231 012724 005300 

3232 012726 001420 

3233 012730 022700 

3234 012734 001752 

3235 012736 020037 

3236 

3237 012742 002405 

3238 012744 022701 

3239 012750 001401 

3240 012752 104001 

3241 

5242 012754 000742 


****** 


000340 

000200 

012642 

166530 

110605 

177776 

177776 

166544 

T50D 

166522 

166510 


40$: 

166510 

166476 

020000 


41$: 

000010 

166460 


166452 

1 30605 


42$: 

000101 

166434 


43$: 

070000 




1 77760 


166374 

000100 

001356 

110605 


************************* 


BJC 

#340. 

a#ps 

BIS 

#200. 

a#ps 

MOV 

#42$. 

aRCVVEC 

MOV 

acsR. 

R1 

CMP 

#110605, 

,R1 

BEQ 

.+4 


HLT + 1 



SWAB 

3T8UF 


TST 

scsr 


BPL 

40$ 


SWAB 

3T8UF 


MOV 

acsR. 

R1 

BIT 

V3IT13. 

R1 

BEQ 

41$ 


HLT + 1 



BIS 

#81 T3. 

acsR 

BR 

45$ 


MOV 

acsR. 

R1 

CMP 

#130605 

.R1 

BEQ 

.+4 


HLT+1 



MOV 

#10i . 

RC 

MOV 

3RBUF. 

R1 

BMI 

.♦4 


hlt+i 



BIT 

#70000. 

R1 

BEQ 

.+4 


hlt+i 



MOV 

R1 . 

R2 

SWAB 

R2 


8IC 

#1 77760 

,R2 

CMP8 

R1. 

R2 

BEQ 

.+4 


hlt+i 



MOV 

3CSR. 

R1 

DEC 

RO 


BEQ 

46$ 


CMP 

#100, 

RO 

BEQ 

43$ 


CMP 

RO, COUNT 

BLT 

44$ 


CMP 

#1 1 0605 

,R1 

BEQ 

.♦4 



HLT + 1 

4 5$ 


BR 


67 


SEO 0066 


CLEAR PROCESSOR LEVEL 
SET PROCESSOR TO LEVEL 4 
SET UP RECEIVER INTERRUPT VEC 
SAVE CSR 
CHECK CSR 


;SEND LINE # 

; WAI T FOR TRANSMITTER READY 

.-SEND LINE # 

; SAVE CSR 

.-WAIT FOR FI/FO OVERRUN 

.•INTERUPT DIDN'T OCCURE WHEN OVERRUN SET 
;R1 = CONTENTS OF CSR 
.•CLEAR MOS 
.SKIP TO THE END 

.-SAVE CSR 
; CHECK CSR 
;8RANCH IF OK 
; CSR ERROR 

;R1 = CONTENTS OF CSR 

.SET UP COUNTER - 65 CHARACTERS 

;READ ONE CHARACTER 

.•BRANCH IF CHARACTER PRESENT 


.CHECK ERRORS 


;DUP DATA 

;CLR ALL BUT LINE # 
.•CHECK DATA 


.-SAVE CSR 

;GET OUT IF ALL CHAR'S READ 
.-CHECK FOR FIRST CHAR READ 
.-SKIP CSR CHECK ON FIRST CHAR 
; IF CHAR'S LEFT IN SILO IS LESS THEN 
.•ALARM LEVEL. DONE WILL GO AWAY. 


.■CHECK CSR 
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TST50: 

TEST 

FI/FO OVERRUN 


SFO 0067 

3243 











3 244 

C 1 2756 

022701 

110405 


44$: 

CMP 

#110405 

,R1 

; CHECK CSR 


3245 

012762 

001401 




BEQ 

.+4 


.-BRANCH IF OK 


3246 

012764 

104001 




HLT + 1 



.-DONE DIDN'T GO AWAY 


3247 









; OR OTHER CSR ERROR 


3248 

012766 

000735 




BR 

43$ 




3249 











3250 

012770 

017701 

166326 


46$: 

MOV 

iRBUF . 

R1 

,-READ A CHARACTER 


3251 

Cl 2774 

100001 




BPL 

.+4 


.-BRANCH IF NO ^HAR. PRES 


3252 

012776 

104001 




HLT + 1 



; CHAR. PRFSEN1. 


3253 











3254 

01 3000 

013777 

001332 

166322 


MOV 

RCVLVL. 

aRCVVEC 



3255 

013006 

012777 

000004 

166316 


MOV 

#IOT. 

aRCVLVL 



3256 

013014 

012716 

Cl 3022 



MOV 

#45$ . 

(SP) 

; RE SET RETURN ADDRESS ON STACK 


3257 

01 3020 

000002 




RTI 



.-RESTORE PSW 


3258 

01 3022 

005077 

1662 7 6 


45$: 

CLR 

3TCR 




3259 

013026 

005077 

166266 



CLR 

SC SR 




3260 

013032 

042737 

000340 

177776 


BIC 

#340, 

a#ps 

; LOWER PROCESSOR STATUS 


3261 











3262 

013040 

104400 




SCOPE 





3263 











3264 











VOJ 






( ^ A A A B A 





3266 





.TEST 

51: 

TEST THAi UART 

OVERRUN IS DETECTED ON ALL LINES 


326 7 

7*)4Q 





.PROBABLE FAULTY LOGIC: 

M7285 

(D2-2) E3. El; M7279; M7280 


DC OO 











3269 











3270 

013042 

012777 

000414 

166250 

TST51: 

MOV 

#414. 

acsR 

;BIT2 = MAINTENANCE 


3271 



* 






;BIT3 = CLEAR MOS 


3272 









;8IT8 = TRANS SCAN ENABLE 


3273 

013050 

032777 

000020 

166242 

10$: 

BIT 

#8IT4. 

acsR 

.WAIT FOR MOS TO CLEAR 


3274 

01 3056 

001374 




BNE 

10$ 




3275 

013060 

005001 




CLR 

R1 


;SET UP LINE COUNTER 


3276 

013062 

012777 

000001 

166234 


MOV 

#1. 

aTCR 

; TRANS CONTROL. LINE 0 


3277 

013070 

01 7702 

166224 


LOP51: 

MOV 

acsR. 

R2 

;UAIT FOR T RANS READY 


3278 

013074 

100375 




BPL 

L0P51 




3279 

013076 

012777 

000001 

166222 


MOV 

#1, 

aTBUF 

.SEND #1 


3280 

013104 

01 7702 

166210 


2$: 

MOV 

acsR. 

R2 

;UAIT FOR TRANS READY 


3281 

013110 

100375 




BPL 

2$ 




3282 

013112 

012777 

000002 

166206 


MOV 

#2, 

aTBUF 

.SEND #2 


3283 

013120 

013700 

001346 



MOV 

TIMER, 

RO 

;SET UP TIMER 


3284 

013124 

105305 



3$: 

DECS 

R5 


.SHORT TIME LOOP 


3285 

013126 

001376 




BNE 

3$ 




3286 

013130 

01 7702 

166164 



MOV 

acsR, 

R2 

.-SAVE CSR FOR THE RECORD 


3287 

013134 

000400 




BR 

.+2 


;NOP FOR TIMING 


3288 

013136 

005300 




DEC 

RO 


.•TIMER COUNT 


3289 

013140 

001371 




BNE 

3$ 




3290 

013142 

005277 

166152 



INC 

acsR 


;SET RECEIVER ENABLE 


3291 

013146 

017702 

166146 



MOV 

acsR, 

R2 

.-SAVE CSR 


3292 

013152 

032702 

000001 



BIT 

#81 TO, 

R2 

.CHECK RECEIVER ENABLE 


3293 

013156 

001001 




BNE 

.+4 


.-BRANCH IF OK 


3294 

013160 

104002 




HLT+2 



.-RECEIVER ENABLE FAILED TO SET 


3295 









;R1 = LINE # 


3296 









;R2 = CONTENTS OF CSR 


3297 

013162 

013700 

001346 



MOV 

timer.ro 

; SET UP TIMER 


3298 

013166 

105305 



4$: 

DEC8 

R5 


.-WAIT SHORT TIME LOOP 
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TST51 : 

TEST RECEIVER UART OVERRUN ON ALL LINES SEO 0068 | 

3299 

013170 

001376 




BNE 

4t 


3300 

013172 

01 7702 

166124 



MOV 

SRBUF ,R2 

CHECK FOR CHAR PRES 

3301 

01 31 76 

100403 




BMI 

5$ 

OK 

3302 

013200 

005300 




DEC 

RO 

TIMER COUNT 

3303 

01 3202 

001371 




BNE 

4$ 


3304 

013204 

104002 




HLT+2 


NO CHARACTER PRESENT 

3305 








R1 = LINE # 

3306 








R2 = CONTENTS OF R8UF 

3307 

013206 

032702 

040000 


5$: 

BIT 

#BJT14. R2 

CHECK FOR UART OVERRRUN 

3308 

013212 

001001 




BNE 

. »4 

BRANCH IF OK 

3309 

013214 

104002 




HLT+2 


UART OVERRUN MISSING 

3310 








R1 = LINE # 

3311 








R2 = CONTENTS OF RSUF 

3312 

013216 

122702 

000002 



CMP8 

#2. R 2 

CHECK THE DATA 

3313 

013222 

001401 




BEQ 

. *4 

BRANCH IF OK 

3314 

01 3224 

104002 




HL T *2 


DATA ERROR - 3RD CHAR OVERRUNS 2ND 

3315 








R1 = LINE # 

3316 








R 2 = CONTENTS OF R8UF 

3317 

01 3226 

010203 




MOV 

R2. R3 

DUP DATA 

3318 

013230 

000303 




SWAB 

R3 


3319 

013232 

042703 

177700 



BIC 

#1 77700. R3 

MASK ALL BIT LINE #. ERROR BITS 

3320 

013236 

020103 




CMP 

R1. R3 

CHECK LINE #, ERRORS 

3321 

013240 

001401 




BEG 

.+4 

BRANCH IF OK 

3322 

013242 

104002 




HL T +2 


LINE # OR OTHER R8UF ERROR 

3323 








R1 = LINE # 

3324 








R2 = CONTENTS OF RBUF 

3325 

01 3244 

01 7702 

1 66052 


71 : 

MOV 

iRBUF . R2 

CHECK FOR MORE DATA 

3326 

013250 

100002 




BPL 

8$ 

BRANCH IF OK 

3327 

013252 

104002 




HLT+2 


EXTRA DATA IN Fi/FO! 

3328 








R1 = LINE # 

3329 








R2 = CONTENTS OF RBUF 

3330 

013254 

000773 




a ft 

7$ 


3331 









3332 

013256 

005377 

166036 


8$: 

DEC 

3CSR 

CLEAR RECEIVER ENABLE 

3333 

013262 

01 7702 

166032 



MOV 

ac SR. R 2 

SAVE CSR 

3334 

013266 

022702 

100404 



CMP 

#1 00404. R2 

CHECK CSR 

3335 

013272 

001401 




8E0 

.♦4 

BRANCH IF OK 

*336 

013274 

104002 




HL T+2 


CSR ERROR 

3337 








R1 = LINE NUMBER 

3338 








R2 = CONTENTS OF CSR 

3339 

013276 

005201 




INC 

R1 

COUNT LINES 

3340 

013300 

006377 

166020 



ASL 

3TCR 

GO TO NEXT LINE 

3341 

013304 

103271 




BCC 

L0P51 

BRANCH BACK IF MORE LINES 

3342 









3343 

013306 

005077 

166006 



CLR 

acsR 


3344 









3345 

013312 

104400 




SCOPE 



3346 









3347 

72/ O 


















3349 





; TEST 

52: 

TEST BITS OF BCSi 

* FOR READ/WRITE CAPABILITY 

3350 

22C1 





; PROBABLE FAULTY LOGIC: M7285 (02-2) E5. El. (02-3) E16. E2. E^9. E35 

333 * 









3352 









3353 

013314 

012777 

002010 

165776 

TST52: 

MOV 

#00201 O.ac SR 

;SET CSR 

3354 

013322 

012777 

177777 

165774 


MOV 

#1 77777. aec SR 

;SET ALL BITS OF BCSR 
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SfO 0069 


3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 
5363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 


013330 

013334 

013340 

013342 

013344 

013350 

013354 

013356 


017701 

022701 

001401 

104001 

005077 

017701 

001401 

104001 


165770 

177777 


165754 

165750 


013360 104400 


MOV 
CMP 
BEQ 
HIT +1 

CLR 

MOV 

BEO 
HLT + 1 

SCOPE 


dfiCSR. HI 
#1 777^7, R1 
.♦4 


aecsR 
SBC SR. R1 
. +4 


CHECK AND SAVE BCSR 

CHECK THAT ALL THE BITS ARE SET 

BRANCH IF OK 

81 T (S) OF BCSR FAILED TO SET 
CLEAR BCSR 

CHECK THAT JT CLEARED AND SAVE 
BRANCH IF CLR 

81 T (S) OF BCSR FAILED TO CLEAR 


TEST 53: TEST THAT LlNEO CAN TRANSMIT AND RECEIVE A BREAK 

ALSO CHECKS FRAMING ERROR (R8UF BIT13) 

ALSO CHECKS PARITY ERROR (R8UF BITI?) 

JF ODD PARITY IS SELECTED 

PROBABLE FAULTY LOGIC: M7285 (D2-2) E5, El. (D2-3) E16. E2, E’9, E35 


013362 004737 014550 


TS T 53: 


013366 

013374 

013400 

013402 

013404 

013410 

013412 

013414 

013416 


013420 

013424 

013426 

013430 

013436 

013440 

013444 

013446 


013450 
013454 
01 3456 


013460 
013464 
01 5466 


012777 

013700 

105305 

001376 

017701 

100403 

005200 

001371 

104001 


032701 

001001 

104001 

133737 

001404 

032701 

001005 

104001 


032701 

001401 

104001 


032701 

001401 

104001 


000001 

001346 


165712 


165730 


020000 


001366 001300 
010000 


010000 


040000 


MOV 

MOV 

DECS 

BNE 

MOV 

BMI 

INC 

BNE 

hlt+i 


BIT 
BNE 
HLT + 1 

BITB 
BEO 
BIT 
BNE 
HlT + 1 


BIT 
BEO 
HLT + 1 


BIT 
BEO 
HLT + 1 


S#INITA 


BBC SR 
. RC 


* 1 , 

TIMER 

R5 

IS 

BRBUF 

2S 

RO 

IS 


#020000. ft 1 

.♦4 


DJPAR. PARITY 

3S 

#01 0000. R1 

4$ 


#01 0000. R1 

.+4 


#040000. R 1 


.•INITIALIZE 
;8IT2 = MAINTENANCE 
;8IT3 = CLEAR MOS 
;BI T10= R/U BCSR 
;UAIT FOR MOS TO CLEAR 
;BITO = RECEIVER ENABLE 
.SEND BREAKS. LINE 0 
.SET l P TIMER 
.•SHORT WAIT LOOP 

.SAVE CHAR PRES 
.BRANCH WHEN FOUND 
.'WAIT A WHILE 

.-CHAR PRES NEVER CAME UP 
;R1 CONTENTS Of RBUf 

.CHECK FOR FRAMING ERROR 
.-BRANCH IF OK 
.-FRAMING ERROR NOT UP 
;R1=C0NTENTS Of RBUF 
.•CHECK ODD PARITY FLAG 
.BRANCH IF NOT 
.CHECK PARITY ERROR 

;ODD PARITY SHOULD CAUSE PARITY ERRjfi 
;R1=C0NTENTS OF RBUF 

.-CHECK PARITY ERROR 
; BRANCH IF OK 
;EVFN PARITY OR NO PARITY 
.•SHOULDN’T CAUSE PARITY ERROR 
;Ri CONTENTS OF RBUF 
.■CHECK UART OVERRUN 
.•BRANCH IF OK 
;UART OVERRUN SET.! 


F 6 
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3411 








;R1 CONTENTS OF R8UF 



3412 

013470 

032701 

007400 


BIT 

#007400 

.81 

.-CHECK LINE # 



3413 

013474 

001401 



BEQ 

. *4 


.-BRANCH IF OK 



3414 

01 3476 

104001 



HL T*1 



.-WRONG LINE# IN FI/FO 



3415 






;R1=C0NTENTS OF RBUF 



3416 

013500 

105701 



TST8 

R1 


.•CHECK DATA 



3417 

013502 

001401 



BEQ 

.♦4 


.'BRANCH IF OK 



3418 

3419 

3420 

3421 

013504 

10400 1 



HL T ♦ 1 



.•WRONG DATA RECEIVED 
;R1 CONTENTS OF RBUF 



013506 

017701 

165610 


MOV 

iRBUF. 

R1 

.-READ FI/FO AGAIN 



342? 

013512 

100001 



BPL 

. *4 


; BRANCH IF OK 



342 3 

013514 

104001 



hlt*i 



.-EXTRA CHAR IN FI/FO 



3424 








;R1 = CONTENTS OF RBUF 



3425 

013516 

003077 

165602 


CLR 

SBC SR 


.'CLEAR BREAK CONTROL REG 



3426 

013522 

105305 


5S: 

DECS 

R5 


.'SHORT WAIT LOOP-REGISTER 

A MARK 


34 2 7 

013524 

(XT 37b 



BNE 

5S 





3428 











5429 

C 1 3526 

104400 



SCOPE 






3430 











3431 











3452 











3433 




.-TEST 

54: 

TEST THAT EACH 

LINE CAN TRANSMIT AND RECEIVE A BREAK 

3434 






ALSO CHECKS FRAMING ERROR iRBuF BIT13) 



34 35 






ALSO CHECKS PARITY ER80R(R8Uf BIT12) 



3436 






IF ODD PARITY 

IS SELECTED 



34 3 7 




.-PROBABLE FAULTY LOGIC: 

M7285 

(D2-2) E5. El. (D2-3) fci6. 

E2. E 19 

E 35 

5458 











5459 











3440 

0135^0 

004737 

014550 

TST54: 

JSR 

PC. 

a#INlTA 

.-INITIALIZE 



5441 








;8I Y2 - MAINTENANCE 



3442 








;BIT3 = CLEAR MOS 



3443 








.BIT 10= R/W BCSR 



3444 








.-WAIT FOR MOS TO CLEAR 



3445 








;BITC = RECEIVER ENABLE 



3446 

013534 

005001 



CLR 

R1 


;SET UP LINE COUNTER 



3447 

013536 

C12704 

OOOOC 1 


MOV 

#1, 

R4 

.SET UP LINE MARKER 



3448 

013542 

013700 

001346 

L OP54 : 

MOV 

TIMER. 

80 

; SET UP TIMER 



3449 

013546 

050477 

165552 


BIS 

R4. 

aecsR 

.-SET BREAK CONTROL BIT. LINE * IN 

R1 

3450 

013552 

105305 


H; 

DEC8 

R5 


.-SHORT WAIT LOOP 



5451 

013554 

001376 



BNE 

1* 





3452 

013556 

01 7702 

165540 


MOV 

iRBuF , 

82 

.-READ RBUF FOR CHAR PRES 



34 53 

013562 

100403 



BMI 

2$ 


.•BRANCH WHEN FOUND 



3454 

013564 

005200 



INC 

RO 


.-WAIT A WHILE 



3455 

013566 

001371 



BNE 

1$ 





3456 

013570 

104002 



HIT *2 



;CHAR PRES NCVER CAME UP 



345 7 








;R1 = LINE # 



3458 








;R2 = CONTENTS OF RBUF 



34 59 











3460 

013572 

032702 

020000 

2$: 

81 T 

#020000. R 2 

.•CHECK FOR FRAMING ERROR 



3461 

013576 

001001 



BNE 

. *4 


.•BRANCH IF OK 



3462 

013600 

104002 



HIT *2 



.•FRAMING ERROR NOT UP 



3463 








;Rl = LINE # 



3464 








;R2 = CONTENTS OF RBUF 



3465 











5466 

C’3602 

010103 



MOV 

*1. 

8? 

;GET LINE # 




:FO Q07Q 
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3467 

01 3604 

006203 




ASR 

R3 

# 

/4 TO GET RID OF BITS 1 t 0 

3468 

013606 

006203 




ASR 

R3 



3469 

013610 

006305 




ASL 

R3 

* 

SHIFT BACK FOR EVEN AD DR OF PARITY JABLF 

3*. 70 

013612 

133763 

001 366 

001300 


BITB 

DJPAR.PARI TY( 3) ; 

CHECK ODD PARITY FLAG 

5471 

Oi 3620 

001404 




BEQ 

3S 


BRANCH IF NOT 

3472 

013622 

032702 

010000 



BIT 

** 

o 

o 

o 

o 

o 

,R2 

CHECK PARITY ERROR 

54 73 

01 3626 

001005 




BNE 

41 



34 7u 

013630 

104002 




HLT+2 



ODD PARITY SHOULD CAUSE PARITY ERROR 

54 75 







R1 - LINE # 

34 76 









R2 ^ CONTENTS OF R8UF 

54 ^7 










3478 

O' 1 3632 

032702 

010000 


3$: 

BIT 

** 

o 

o 

o 

o 

o 

,R 2 

CHECK PARITY ERROR 

34 79 

01 3636 

001401 




BEQ 

4$ 


BRANCH IF GK 

3480 

01 3640 

104002 




HLT + 2 



EVEN PARITY OR NO PAR I T V 

SHOULDN'T CAUSE PARITY ERROR 

3481 








3482 









R1 = LINE # 

3483 









R 2 - CONTENTS OF R8U F 

3484 

01364? 

032702 

040000 


4$: 

BIT 

#040000 

.R 2 

CHECK KART OVERRUN 

348 5 

01 3646 

001401 




BEQ 



BRANCH IF OK 

3486 

01 3650 

104002 




HL T*2 



UART OVERRUN SET!. 

3487 









R1 = LINE # 

3488 









R2 = CONTENTS OF RBUF 

3489 

013652 

010203 




MOV 

H2. 

R3 

DUP DATA 

3490 

013654 

000303 




SWAB 

R3 


LINE # IN LOW BYTE 

3491 

013656 

042703 

1 77760 



BIC 

#1 77760 

,R3 

MASK ALL BUT LINE # 

3492 

013662 

020103 




CMP 

R1. 

R3 

CHCCK FOR RIGHT LINE # 

3493 

013664 

001401 




BEG 

.+4 


BRANCH IF OK 

3494 

3495 

3496 
5497 

3498 

3499 

013666 

104002 




HLT *2 



WRONG LINE# IN FI/F0 

R1 = LINE # 

R2 = CONTENTS OF RBUF 

01 36 7 0 

105 7.' 7 




TST8 

R2 


CHECK DATA 

3500 

O 1 3672 

00K01 




BEQ 

.♦4 


BRANCH IF OK 

3501 

O'. 3674 

1 04002 




hlt+2 



WR0N6 DATA RECEIVED 

550? 








R1 = LINE # 

3503 









R? = CONTENTS OF RBUF 

3504 

013676 

017702 

165420 



MOV 

3R81JF . 

R2 

READ FI/FO AGAIN 

3505 

01370? 

100001 




BPL 



BRANCH IF OK 

3506 

01 3704 

104002 




HLT *2 



EXIRA CHAR IN FI/FO 

3507 









R1 = LINE # 

3508 









R? - CONTENTS OF RBUF 

3509 

013706 

005077 

165412 



CLR 

aecsR 


CLEAR BREAK CONTROL REG 

3510 

013712 

005201 




INC 

R1 


COUNT LINES 

3511 

013 7 14 

006304 




ASL 

R4 


UPDATE LINE MARKER 

3512 

013716 

103311 




8CC 

L0 o 54 


BRANCH IF MORE LINES 

3513 









CLEAR ISR 

3514 

01 3720 

005077 

165374 



CLR 

S'.SR 


3515 

013724 

104400 




SCOPE 




3516 










3517 

013726 

012737 

000002 

015252 


MOV 

»2. 

TIMES 



3518 


3519 

352C 

3521 

3522 


TEST 55: TEST THAT RESET CLEARS ALL BUFFERS 

NOTE: THE FJ/FO BUFFER IS NOT COMPLETELY CLEARED 

BY RESET; ONlY CHARACTER PRESENT IS CLEARED. 


SFCi 0071 


'■a c c r y 
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3525 ; PROBABLE FAULTY LOGIC. M7285 (D2-8) EH 


3524 










3525 










3526 

013734 

052737 

000340 

17?776 

TST55 : 

BIS 

#340.i#PS 

SET PROCESSOR TO LEVEL 7 


3527 

013742 

012777 

177777 

165354 


MOV 

#1 77777 . QiTCR 

SET ALL TCR BITS 


3528 

013750 

012777 

052507 

165342 


MOV 

#0525C7,acSR 

SET ALL R/W BITS OF CSR 


3529 

013756 

012777 

177777 

165340 


MOV 

#177777. 3BCSR 

SET ALL BREAK CONTROL BITS 

(SEND BREAKS) 

3530 





.-NOTE: 

ALL LINES SHOULD BE SENDING BREAKS. BUT NONE SHOULD 

8ERCCE JVING 

3531 






BECAUSE THE HALF DUPLE) 

< 8K IS SET 


3532 

01 3764 

012777 

1 77777 

165334 


MOV 

#1 77777. 3TBUF 

•LOADING TRANS BUFF WHEN BREAK BIT SET 

3533 








SHOULD DO NOTHING 


3534 

013772 

000005 




RESET 


CLEAR THE WORLD 


3535 

01 3774 

013737 

001320 

014004 


MOV 

CSR.1t 

CHECK CSR AND SAVE 


3536 

014002 

013701 




MOV 

a(PC)+.R1 



3537 

014004 

OOOOOO 



11: 

OOOOOO 




3538 

014006 

001401 




BEO 

.♦4 



3539 

014010 

104001 




HLT*1 




3540 










3541 

014012 

017701 

165306 



MOV 

aKR.RI 

;CHECK TCR AND SAVE 


3542 

014016 

001401 




BEO 

. *4 



3543 

014020 

1040C1 




HLT + 1 




3544 










3545 

014022 

017701 

165276 



MOV 

aecsR.Ri 

.CHECK BCSR AND SAVE 


3546 

014026 

001401 




BEO 

.♦4 



3547 

Cl 4030 

104001 




HLT*1 




3548 










3549 

014032 

CT 7701 

165264 



MOV 

aRBUF.RI 

.-CHECK R8UF AND SAVE 


3550 

014036 

1 00001 




BPi 

.>4 



3551 

014040 

104001 




HLT*1 




3552 










3553 

014042 

0 i 7701 

165260 



MOV 

aTBUF.RI 

.•CHECK TBUf AND SAVE 


3554 

01 5046 

001401 




BEO 

. +4 



3555 

014050 

104001 




HL T+1 




3556 










3557 

014052 

104400 




SCOPE 




3558 










3559 










J-)OU 










3561 





;TEST 

56: 

SEND A BINARY COUNT PATTERN ON EACH LINE 

Y lOGIC: COULD BE ALMOST ANYWHERE! 


3562 





; PROBABLE FAULT 


3563 





"ft**** 






3564 


3565 

014054 

005001 



1ST 56: 

CLR 

R1 


SET UP LINE COUNTER 

3566 

014056 

012703 

100000 



MOV 

#1 00000. R3 

SET UP RCV DATA 

3567 

014062 

012777 

014260 

165240 


MOV 

#ISR56.aRCVVEC 

SET UP RECEIVER INTERRUP T VECTOR 

3568 

014070 

012777 

000240 

165234 


MOV 

#2 40. 

aRCVLVL 


3569 

014076 

042737 

000340 

1 77776 


B1C 

#340. 

a#ps 

CLEAR PROCESSOR PRIORITY 

3570 

014104 

052737 

000200 

177776 


BIS 

#200. 

i#PS 

SET PRIORITY TO 4 

3571 

014112 

012700 

000001 



MOV 

#1. 

RO 

SET UP LINE MARKER 

3572 

014116 

012777 

010514 

165174 


MOV 

#010514 

.acsR 

81 T2 = MAINTENANCE 

3573 









31 T3 = CLR MQS 

3574 









81 T6 = RECEIVER INTERRUPT FNB 

3575 









BIT 8 = TRANS SCAN ENABLE 

5576 









BI T1 2= STATUS ENABLE 

3577 

Cl 4 124 

032777 

000020 

165-66 

10$: 

BIT 

#8JT4, 

acsR 

WAIT FOR MOS t 0 ClcAP 

357g 

014152 

001 374 




BNE 

10$ 
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TST56: 

TEST ALL DATA ON EACH i INf 0075 

3579 

014134 

052777 

OOOOCi 

165156 


BIS 

Al.ilCSR 

SET THE RCV EN BIT 

3580 

014142 

005004 



IS: 

CLR 

R4 

SET FOR OUTPUT DATA 

3581 

014144 

010077 

165154 



MOV 

90, 3TCR 

TRANS CONTROL, ONE CINE AT A MMf 

3582 

014150 

005777 

165144 


2$: 

TST 

alCSR 

WAIT FOR TRANS READY 

3583 

014154 

100375 




BPL 

2$ 


3584 

014156 

010477 

165144 



MOV 

R4 ( a) T 8UF 

SEND DATA 

5585 

OH 162 

105204 




INC8 

R4 

BINARY COUNT 

3586 

014164 

123704 

001 360 



CMP0 

SUM.P4 

MAKE SURE THE CORECT NLM8ER IS OUTPJTED 

3587 

014170 

001 367 




BNE 

2$ 


3588 

014172 

147704 

165166 


3$: 

BIC8 

8DJLEN.R4 

SET FOR MAX. RECIEVER COUNT 

3589 

014176 

120403 




CMP8 

R4.R3 

WAIT FOR RECEIVER DONE 

3590 

014200 

001374 




BNE 

3$ 


3591 

014202 

01 7702 

165112 



MOV 

SCSR, R2 

SAVE CSR 

3592 

014206 

022702 

110505 



CMP 

AV0505.R2 

CHECK CSR 

3593 

014212 

001 401 




e c o 

.+4 

BRANCH IF CK I 

3594 

014214 

10400? 




hlT+2 


CSR ERROR 

3595 








R1 -LINE M 1 

3596 








R2=C0NTEN T S OF CSR * 

3597 

014216 

01 7702 

165100 



MOV 

8R8UF , R2 

CHECK CHARACTER PRESENT 

3598 

014222 

100001 




BPL 

.♦4 

BRANCH IF OK 

3599 

014224 

104002 




HLT+2 


CHARACTER PRESENT SET!! 

3600 








R1=LINE M 

3601 








R2 = CONTENTS OF CSR 

3602 

014226 

105003 




CLR8 

R3 

RESET EXPECTED DATA 

3603 

014230 

062703 

000400 



ADD 

#*400, R3 

UPDATE LINE M IN EXPECTED DATA 

3604 

014234 

005201 




INC 

R1 

UPDATE LINE M 

3605 

014236 

032701 

000003 



BIT 

Ml. R1 

CHECK FOR FOURTH LINE 

3606 

014242 

001002 




BNE 

4$ 

BRANCH IF NOT 

3607 

014244 

005237 

001364 



INC 

DJLEN 

MOVE CHARACTER LENGTH POINTER 

3608 

014250 

000241 



4$: 

CLC 



3609 

014252 

006300 




ASL 

RO 

UPDATE LINE MARKER 

3610 

014254 

103332 




BCC 

1$ 

BRANCH IF MORE 

3611 

014256 

000416 




8R 

END56 

SKIP ISR 

361? 









3613 

014260 

017702 

165036 


ISR56: 

MOV 

aRBUF . R2 

READ FIRST DATA 

3614 

014264 

100401 




bm; 

11$ 

BRANCH IF CHARACTER PRESENT 

3615 

014266 

104003 




HLT + 3 


INTERRUPT BUT NO CHAR PRESENT 

3616 








R1=LINE # 

3617 








R2=C0NTENTS OF RBUF 

3618 








R3=EXPECTED DATA 

3619 

014270 

147703 

165070 


11$: 

BiCB 

3DJLEN,R3 

MASK CHAR. LENGTH 

3620 

0H274 

020203 




CMP 

R2. R3 

CHECK THE DATA 

3621 

014276 

001401 




BEQ 

.+4 

BRANCH IF OK 

3622 

014300 

104003 




HLT + 3 


DATA ERROR 

3623 








R1=lINE 0 

3624 








R2=C0NTENTS OF RBUF 

3625 








R3=EXPECTED DATA 

3626 

014302 

105203 




INC8 

R5 

UPDATE EXPECTED DATA 

36 2? 

014304 

017702 

165012 



MOV 

aRBUF . R2 

READ MORE DATA 

3628 

014310 

100767 




SMI 

11$ 

BRANCH IF MORE 

3629 

014312 

000002 



12$: 

R T I 


RETURN 

3630 







3631 

014314 

162737 

000004 

001364 

END 56: 

SUB 

#4. DJLEN 

.RESET CHAR LENGTH POINTER 

36 32 

014322 

013777 

001332 

165000 


MOV 

RCVLVL , aPCVVEC 

.•RESTORE RECEIVER INT. VEC 

3633 

014330 

012777 

000004 

164774 


MOV 

Ml OT, 3RCVLVL 


3634 

C14336 

005077 

164762 

e 


CLR 

3TCR 

; C LEAR TCR 
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5635 

0H342 

005077 

164752 



CcR 

acsR 

CLEAR CSR 

3636 

014346 

104400 




SCOPE 




3637 










3638 

014350 

012737 

000020 

015252 


NOV 

#20. TINES 



3639 

014356 

023737 

001362 

00*344 


CNP 

DJUUT. UNITS 

CHECK FOR LAST UNIT 

3640 

014364 

002004 




BGE 

DONE 

BRANCH IF LAST UNIT 

3641 

014366 

005037 

001350 



CLR 

ALNFLG 

CLEAR FL 

AG FOR NEXT UNIT 

3642 

014372 

000137 

002472 



JNP 

RE STAR 

JUNP IF 

NOT 

3645 










3o44 

014376 




DONE: 





3645 

014376 

004737 

017454 



JSR 

PC. KBDINT 



3646 

01 4402 

062737 

000001 

001316 


ADD 

#1 ,PCNT *2 

ADD 1 TO THE PASS COUNT 

3647 

014410 

005537 

001314 



ADC 

PCNT 

MAKE I T 

DOUBLE PREC. 

3648 

014414 

000004 

016516 



TYPE 

.NEOP 

END OF PASS INDICATOR 

3649 

014420 

032777 

002000 

164746 


BIT 

#swio,aswR 

RING THE BELL? 

3650 

014426 

001004 




BNE 

4$ 

NO! 


365 1 

014430 

000004 

000007 



TYPE 

.BELL 

RING THE BELL 

3652 

014434 

000004 

0001 77 



TYPE 

.177 

TYPE A FILLER FOR 11/05 

3653 

014440 

013700 

000042 


4$: 

NOV 

SA42.R0 

GET MONITOR ADDRESS 

3654 

014444 

001405 




BEQ 

3$ 

IF NONE 


3655 

014446 

000005 




RESET 


;RE SET AND 

3656 


014450 




SEND AD 

- . 



3657 

014450 

004710 




JSR 

7.(0) 

;G0 TO MONITOR 

3658 

014452 

000240 




NOP 


:SAVE ROOM 

3659 

014454 

000249 




NOP 


FOR 


3660 

014456 

000240 




NOP 


ACT11 


3661 

014460 

0001 37 

002472 


3$: 

JNP 

RE STAR 

RETURN 


3662 










3663 










3664 





9 





3665 





9 

this subroutine will calculate the br priorities. 

3666 





0 





3667 

014464 




8RSET: 





3668 

014464 

010046 




NOV 

RO. -(SP) 


SAVE RO 

3669 

014466 

010146 




NOV 

R1 . -(SP) 


SAVE R1 

3670 

014470 

013700 

001362 



NOV 

DJUUT. RO 


LOAD >JP UUT DEVICE # 

3671 

014474 

006100 




ROL 

RO 


MULT X 2 TO SAVE OFFSET 

3672 

014476 

012701 

017230 



NOV 

APRT8LE, R1 

LOAD IN BASE OF TABLE 

3673 

014502 

060100 




ADD 

R1 , RO 


STORE LOCATION OF BR IN RO 

3674 

014504 

011037 

017220 



NOV 

(RO). MASK 


SAVE BR FROM QUESTION 

3675 

014510 

162737 

000060 

01 7220 


SU8 

#60. MASK 


MASK= DECIMAL #(0 TO 7) 

3676 









CREATED FROM ASCII 

36 77 

014516 

013737 

01 7220 

017222 


NOV 

NASK. LEVEL 


STORE FOR ERROR PRINTOUT 

3678 

014524 

006137 

017220 


1$: 

ROL 

MASK 


ROTATE 5 TIMES TO 

3679 

014530 

006137 

017216 



ROL 

NOW 


CREATE BR LEVELS AS BELOW 

3680 

014534 

005337 

017^26 



DEC 

CT 


COUNT TO 5 

3681 

C14540 

001371 




BNE 

IS 


BACK till 5 ROL DONE 

3682 










5683 







; NOW= 340. THEN 

300. THEN 240. THEN 200 ETC. 

3684 







; (340.300.240.200.140.100.40.0) 

3685 

014542 

012601 




NOV 

(SP)*. R1 


RELOAD R1 

3686 

014544 

012600 




NOV 

(SP)*, RO 


RELOAD RO 

3687 










3688 

014546 

000207 




RTS PC 



BACK TO MAIN CODE/ QUESTIONING 

3689 









MASK AND NOW ARE LOADED. 

3690 











,CQ 0C74 


l 


1 — 
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BELL AND SCOPE ROUTINE 


SEO 0075 

5691 









3692 





INITIALIZATION ROUTINE 



3693 









3694 





DEVICE 

CSR REGISTER 



3695 









3696 





ON FAILURE: 

REGISTER 0 CONTAINS fcRROR ADDRESS 


3697 









3698 





SET: 




3699 





8IT01 = HALF 

DUPLEX 



3700 





•BIT02 = MAINTENANCE 



3701 





8IT03 = CLEAR 

MOS 



3702 





8IT06 = RECEIVER INTERRUPT ENABLE 


3703 





8IT08 = MASTER XMTR SCAN Ef« 



3704 





■BIT10 = R/W BCSR 



3705 









3706 





WAIT FOR MOS 

TO Cl EAR 



3707 





SET: 




3708 





8 1 TOO = RECEIVER ENABLE 



3 7 09 









3710 







SET 


3711 

014550 

012777 

002014 

164542 

MTA: MOV 

#201 4. 3C SR 

;8I T <5)2,3.10 THEN 0 


3712 

014556 

0004 1 3 



BR 

INITR 



3713 









3714 

014560 

012777 

000514 

164532 

NITB: MOV 

#574,aCSR 

;8IT(S>2. 3.6.8 THEN C 


3715 

014566 

000407 



BR 

INITR 



3716 









3717 

014570 

012777 

000416 

164522 

NI1C: MOV 

#416.8CSR 

;8I T (5)1 ,2.3.8 THEN 0 


3718 

014576 

000403 



BR 

INITR 



3719 









3720 

014600 

012777 

000414 

164512 

NJ TD: MOV 

#414.aCSR 

;8iTC5>2.5.8 then 0 


3721 









3722 

014606 

005000 



NITR: CLR 

RO 



3723 









3724 

014610 

005200 



$: INC 

RC 

.•ANTIHANG 


3725 

014612 

001004 



8NE 

2t 

.ROUTINE 


3726 









3727 

014614 

011600 



MOV 

(SP).RO 

.•RECORD SUBROUTINE CALL RETURN 


3728 

014616 

162700 

000002 


Sl« 

#?,R0 

;FORM CALL ADDRESS FOR DISPLAY 


3729 









37*0 

014622 

104000 



HlT 


;8I T#4 Of DEVICE CSR FAp ED K CLEAR 


3731 









3732 

014624 

032777 

000020 

164466 £ 

?$: BIT 

#8IT4.aCSR 

.-TEST HAS MOS CLEARED 


3733 

014632 

001366 



BNE 

1$ 

;N0 BRANCHES 


3734 







.-SET: 


3735 

014634 

052777 

000001 

164456 

b:s 

#i. acsR 

;8I TOO RECEIVE ENABLE 


3736 

014642 

000207 



RTS 

PC 

.•CONTINUE 


3737 









3738 
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3739 


3740 

014644 

013701 

001 320 


ALMCK : 

MOV 

CSR.R1 

GET CSR ADDR INTO R1 

3741 

014650 

012761 

000001 

000004 


MOV 

#1 ,4 (R1 ) 

SET LINE 0 IN THE TCR 

3742 

014656 

052711 

000004 



BIS 

#BIT 2. (R1 ) 

SET THE MAINT BIT 

3743 

014662 

005037 

001356 



CLR 

COUNT 


3744 

014666 

C05037 

001 360 



CLR 

SUM 


3745 

014672 

005037 

001352 



CLR 

TIMERA 


3746 

014676 

012737 

000200 

001354 

^5: 

MOV 

#200. TIMERS 

SET UP TIME CONSTANTS 

3747 

014704 

0057H 




TST 

(R1 ) 

WAIT FOR TRANSFER READY BIT 

3748 

014706 

100373 




BPL 

2$ 


3749 

014710 

112761 

000377 

000006 


M0V8 

#377.6(R1) 

OUTPUT A CHAR TO TBUF 

3750 

014716 

005237 

001 356 



INC 

COUNT 

COUNT EACH CHAR 

3751 

014722 

105711 



IS- 

TST8 

(R1 ) 

CHECK FOR DONE IN THE CSR 

3752 

014724 

100405 




BMI 

3$ 

IF SET GET OUT OF THE LOOP 

3753 

014726 

004537 

015056 



JSR 

R5. TIME 

G'VE DONE TIME TO SET 

3754 

014732 

000773 




BR 

IS 

RETURN TO TEST FOR DONE AGAIN 

3755 

014734 

000760 




BR 

2$ 

RETURN TO OUTPUT ANOTHER CHAR 

3756 

014736 

000742 




BR 

ALMCK 

ERROR RETURN TRY AGAIN 

3757 

014740 

042711 

000001 


3$: 

BIC 

#81 TO. (R1 ) 

TURN OFF RCV ENABLE 

3758 

014744 

022737 

000001 

001356 


CMP 

#1. COUNT 

IF SILO LEVEL SET FOR 1 THEN GET OUT 

3759 

014752 

001414 




BEQ 

4$ 

CONTINUE TO A COUNT OF 256 

3760 

014754 

063737 

001 356 

001360 

7$: 

ADD 

COUNT .SUM 
SLM,#377 

3761 

014762 

023727 

00)360 

000377 


CMP 


3762 

014770 

002771 




BLT 

7$ 


3763 

014772 

001403 




BEO 

10$ 

IF equal USE IT 

3764 

014774 

163737 

001 356 

001 360 


sue 

COUNT, SUM 

IF GREATER SUBTRACT 1 COLWT SO IT’S LESS 

3765 

0 1 5002 

000403 



10*: 

BR 

11$ 

ALL SET GET OUT 

3766 

015004 

012737 

000377 

001360 

41: 

MOV 

#377, SUM 

PUT StM to max value 

3767 

015012 

004737 

01 7454 


11$: 

JSR 

PC.KSDINT 

GET THE SWITCH REGISTER 

3768 

015016 

032777 

010000 

164350 


BIT 

#swi2,as«R 

PRINT ALARM LEVEL? 

3769 

015024 

001413 




BEQ 

13$ 

NO 

3770 

015026 

000004 

016756 



TYPE, 

MALARM 


3771 

015032 

010105 




MOV 

R1.TTY 

YES. PRINT CSR FIRST 

3772 

015034 

004737 

016042 



JSR 

PC.PRINTR 


3 773 

015040 

000004 

016676 



TYPE. 

MSGDAS 


3774 

015044 

013705 

001356 



MOV 

cowt.tty 

.PRINT ALARM LEVEL 

3775 

015050 

004737 

016042 



JSR 

PC.PRINTR 


3776 

015054 

000207 



13$: 

RTS 

PC 


V77 









3778 









3779 









3780 

015056 

105237 

001352 


TIME: 

INCB 

TJMERA 

INCREMENT THROUGH ONE WORD 

3781 

015062 

001012 




8NE 

1$ 

GO TEST FOR DONE AGAIN 

3782 

015064 

005337 

001354 



DEC 

TIMERS 

MAKE TIMERS LARGER IF FAST PROCESSOR 

3783 

015070 

001007 




BNf 

1$ 

HAVE OUTPUTTED 18 TIMES 

3784 

015072 

023727 

001356 

000022 


CMP 

COUNT. #22 

3785 

015100 

001002 




BNE 

2$ 

NO, GO OUTPUT ANOTHER CHAR 

3786 

015102 

104001 




HLT*1 


YES. DONE DID NOT SET AFTER 18 OUTPUTS 

3787 








R1 * CSR 

3788 

015104 

005725 




TST 

(R5) ♦ 

SET R5 FOR ERROR RETURN 

3789 

015106 

005725 



2$: 

TST 

(R5) ♦ 

SET R5 FOR NEXT OUTPUT RETURN 

3790 

015110 

000205 



1$: 

RTS 

R5 

RETURN FROM ABOVE OR RETES T DONE 


SEQ 007t 
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SCOPE LOOP HANDLER SEG 0077 

SSCOPE SCOPE LOOP HANDlER 

.-THIS ROUTINE HANDLES THE ITERATIONS, LOOPING, ERROR 
.•LOOPING. AND THE DISPLAYING OF THE TEST NUMBER. 

.•"SCOPE" IS PLACED BETWEEN EACH SUBTEST IN THE TEST AND 

3797 .-RECORDS THE STARTING ADDRESS OF THE SU8TEST IN "LAD:" 

3798 


3799 

015112 

004737 

017454 


TRAPS: 

JSR 

PC. KBDINT 


3800 

015116 

032777 

000400 

164250 


BIT 

*SW8,aSWR 

LOOP ON SPEC. TEST? 

3801 

015124 

001404 




BEQ 

IS 

NO LOOP ON SPEC. TEST 

3802 

015126 

127737 

164242 

001310 


CMP8 

SSWR.ICNT 

ON RIGHT TEST? «SU7-0* 

3803 

015134 

001434 




BEQ 

OVERS 

NOT RIGHT TEST 

3804 

015136 

032777 

040000 

164230 

1$: 

BIT 

ASW14.3SUR 

LOOP ON TEST'’ 

3805 

015144 

001026 




BNE 

KITS 

LOOP ON TEST IS SET 

3806 

015146 

032777 

004000 

164220 


BIT 

#SW11.3SWR 

KILL ITERATIONS 

3807 

015154 

001012 




BNE 

SVLADS 

YES - KILL ITERATIONS 

3808 

015156 

105737 

001311 



TSTB 

1 CNT ♦ 1 

FIRST ONE? 

3809 

015162 

001404 




BEQ 

2S 

BRANCH IF FIRST 

3810 

015164 

123737 

015252 

001 31 1 


CMP8 

TIMES. ICNT*1 

DONE? 

3811 

015172 

001013 




BNE 

KITS 

BRANCH IF NOT 

3812 

015174 

112737 

000001 

001311 

2S: 

KOVB 

#1.ICNT*1 

FIRST ITERATION 

3813 

015202 

105237 

001310 


S VLADS : 

INCQ 

I CNT 

COUNT TEST NUMBERS 

3814 

015206 

011637 

015250 



MOV 

(6). LAD 

SAVE LOOP ADDRESS 

3815 

015212 

013737 

001310 

001376 


MOV 

ICNT.3#DISPLAY 

DISPLAY TEST NO. AM) ITERATION rQUNT 

3816 

015220 

000002 




RTI 


return 

3817 









3818 

015222 

105?37 

001311 


KITS: 

INC8 

ICNT+1 

INC THE ITERATION COLNT 

3819 

015226 

013737 

001310 

001 376 

OVERS: 

MOV 

ICNT.atDISPL.xY 

JET uP DISPLAY 

3820 

015234 

005737 

015250 



TST 

LAD 

*lfisr ONE? 

3821 

015240 

001760 




BEQ 

SVLADS 

YES 

3822 

015242 

013716 

015250 



MOV 

LAD. (6) 

FUDGE RETURN ADDRESS 

3823 

015246 

000002 




RTI 


FIXES PS 

3824 









3825 

015250 

000000 



LAD: 

0 


LOOP ADDRESS 

3826 

015252 

000020 



MMES: 

20 


RUN 20 TIMES 



ZZ-CZDJA-F-0 

DjI 1 LOGIC TESTS 

MACYll 

30A( 1052) 26- 

N 6 

FEB-79 15:47 PAGE 

79 

CZDJAF 

P11 

?6-FEB-79 

15:41 


SCOPE 

LOOP HANDLER 

SEO 00 7 8 

3827 








3828 

3829 

3830 





$HLT 

ERROR TYPEOUT HANDLER 





.-THIS ROUTINE 

PRINTS OUT ERROR MESSAGES STARTING WITH THE 

3831 





.•ADDRESS OF THE 'VHT. IT ALSO COUNTS THE NUMBER OF ERRORS 

3832 





;AND HAS THE 

; ' Vial t ' ' on er 

CAPABILITY OF LOOPING ON ERROR, BELL ON ERROR, 

3833 





ROR. AND INHIBIT TYPEOUTS. AN OPTIONAL ARGUEMENT 

BE PLACED IN 'HLTCTS:" FOR ADITIONAL TYPEOUTS. 

3834 





; (HL T +3) WILL 

3835 








3836 

015254 

004737 

017454 


EMTS: JSR 

PC. KBDJNT 


3837 

01 5260 

032777 

002000 

164106 

BIT 

ASWlO.aSWR 

BELL ON ERROR? 

3838 

01 5266 

001402 



BEQ 

IS 

NO - SKIP 

3839 

015270 

000004 

000007 


TYPE 

.BELL 

RING BELL 

3840 

015274 

005<?37 

001312 


1$: INC 

ERRORS 

COUNT THE NUMBER OF ERRORS 

3841 

015300 

032777 

020000 

164066 

BIT 

tfSWl3.SSWR 

SKIP TYPEOUT IF SET 

3842 

015306 

001026 



BNE 

2$ 

SKIP TYPEOUTS 

3843 

015310 

000004 

015314 


TYPE 

,.♦2 

.ASCIZ <15><12> 

3844 

015320 

011637 

015424 


MOV 

(6) .HLTADR 

PUT ADDRESS OF INSTRUCTION ON STACK 

3845 

015324 

162737 

000002 

015424 

sue 

A2.HL TADR 

FJDGE ADDRESS 

3846 

015332 

117737 

000066 

015422 

M0VB 

SHL TADR.HLTCTS 

GET HLT ARGUEMENT 

3847 

015340 

013705 

015424 


MOV 

HLTADR. TTY 

TYPE HLTADR IN OCTAL 

3848 

015344 

004737 

016042 


JSR 

PC.PRINTR 

TYPE LEADING ZERO’S 
.ASCIZ ” " 

3849 

015350 

000004 

015354 


TYPE 

#.♦2 

3850 

015360 

004737 

015426 


JSR 

PC. ERRORS 

GO TO USER ERROR ROUTINE 

3851 

015364 

005777 

164004 


2S: TST 

SSWR 

HALT ON ERROR 

3852 

015370 

100001 



BPL 

.♦4 

SKIP IF CONTINUE 

3853 

015372 

000000 



HALT 


HALT ON ERROR! 

3854 

015374 

004737 

017454 


JSR 

PC.KBDINT 


3855 

015400 

032777 

001000 

163766 

BIT 

#SW9,aSWR 

CHECK FOR INHIBIT LOOP ON ERROR 

3856 

015406 

001001 



BNE 

. +4 

SKIP IF LOOP ON ERROR 

3857 

015410 

000002 



RTI 


RETURN 

3858 

015412 

105037 

001311 


CLR6 

ICNT*1 

CLEAR ITERATION COUNT 

3859 

015416 

000137 

015222 


JW> 

KITS 

LOOP ON TEST UNTIL NO ERRORS 

3860 








3861 

015^22 

000000 



HLTCTS: 0 


;HL T ARGUEMENT 

3862 

015424 

000000 



HL T ADR : 0 


;LAST HLT INSTRUCTION EXECUTED 

3863 








3864 

015426 




ERRORS: 



3865 

015426 

013705 

001320 


MOV 

csr.tty 

.-TYPE CSR IN OCTAL 

3866 

015432 

004 737 

016042 


JSR 

PC.PRINTR 

; TYPE LEADING ZERO'S 

3867 

015436 

042737 

007700 

015464 

BIC 

#7^00,2$ 


3868 

015444 

105337 

015422 


IS: DEC8 

hltcts 


3869 

015450 

100411 



BMI 

3$ 


3870 

015452 

062737 

000100 

015464 

ADD 

#100,2S 


3871 

015460 

000004 

016527 


TYPE, 

SPACE 


3872 

015464 

010005 



2$: MOV 

SO. TTY 

;TYPE REGISTER X IN OCTAL 

38 7 3 

015466 

004737 

016042 


JSR 

X7.PRJNTR 


3874 

015472 

000/64 



BR 

IS 


3875 

015474 

000207 



3$: RTS 

PC 
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5876 

5877 

5878 

5879 015476 012737 000001 

3880 015504 004737 015644 

5881 015510 005037 015770 

5882 015514 010146 

5885 015516 010246 

5884 015520 010346 

5885 015522 012501 

3886 015524 012737 000020 
5887 015532 012702 015772 
3888 015556 122712 000120 
5889 015542 001425 

3890 01 5544 00501 1 

3891 015546 112203 

5892 015550 120327 000015 

3893 015554 001420 

3894 015556 162703 000060 

5895 015562 032703 177770 

5896 015566 001013 

3897 015570 006311 

3898 015572 103410 

5899 015574 006311 

3900 015576 1034C6 

3901 015600 006311 

3902 015602 103404 

3903 01 5604 05031 i 

3904 015606 005337 017664 

3905 015612 000755 

3906 015614 000244 

3907 015616 013737 177776 

3908 015624 012603 

3909 015626 012602 

3910 015630 012601 

3911 015632 013737 015642 

3912 015640 000205 

3913 

3914 015642 000000 

3915 

3916 015644 010346 

3917 015646 012703 015772 

3918 015652 022703 016012 

3919 015656 001415 

3920 015660 105737 177560 

3921 015664 100375 

3922 015666 113713 177562 

3923 015672 142713 000200 

3924 015676 122713 000177 

3925 015702 001403 

3926 015704 122713 000025 

3927 015710 001006 

3928 015712 

3929 015712 000004 015716 

3930 015724 000750 

3931 01 5726 111337 016514 
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TELETYPE INPUT ROUTINES 


.-SUBROUTINE TO SAVE INPUT AS OCTAL NUMBER 


015770 


01 7664 


READIN: MOV 
JSR 
CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CMPB 
BEQ 


Al.JNHRE 


PC 

1NHRE 
Rl.-(6) 
R2,-<6) 
R3.-(6) 
(R5) ♦, 
#20.CNT 
#INPUT.R2 
#120. (R2) 
3$ 


READS ;G0 READ TTY UNTIL CR 


R1 


PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 


; CHECK FOR ’P" 




CLR 

(R1 ) 



IS: 

M0V8 

(R2) *,R3 




CMPB 

R3.#15 




BEQ 

3$ 




SUB 

#60,R5 




BIT 

#177770.R3 




BNE 

3S 

BRANCH IF BAD DATA 



ASL 

(R1 ) 




8CS 

2S 




ASL 

( R 1 ) 




BCS 

2$ 




ASL 

(Rl ) 




8CS 

2$ 




BIS 

R3.CRD 




DEC 

CNT 




BR 

IS 



2$ : 

CLZ 


MAKE SURE Z-8IT IS CLR 

01 5642 

3$: 

MOV 

a#PS. PSTEMP 

SAVE CONDITION CODES 



MOV 

<6>*.R3 

POP STACK INTO R3 



MOV 

(6)*.R2 

POP STACK INTO R2 



MOV 

(6) *,R1 

POP STACK INTO Rl 

177776 


MOV 

PSTEMP. i#PS 

RESTORE CONDITION CODES 



RTS 

R5 



PSTEMP: 

0 

.-TEMPORARY STORAGE FOR PS 


READS: 

MOV 

R3.-C6) 

SAVE R3 


IS: 

MOV 

#INPUT.R3 

GET ADDRESS 


2S : 

CMP 

# INPUT +20, R3 

BUFFER FULL? 



BEQ 

4S 

YES - TYPE '*?“ 



TSTB 

a# 1 77560 

WAIT FOR 



BPL 

.-4 

A CHARACTER 


4$: 


MCV8 JWM77562. (3) 

BIC8 #200.(3) 

CMPB #177.(3) 

BEQ 4$ 

CMPB #25.(3) 

BNE 3$ 

TYPE ,.*2 

BR IS 

MOVB (3).. TYPE 


GET CHARACTER 
GET RID OF JUNK 
IS IT A RUBOUT 
SKIP IF NOT 


.ASCIZ 'TVISxl?^ 

ZAP THE BUFFER AND LOOP 
SET UP FOR TYPING 



3$: 


SEU u08G 
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CZDJAF.P11 26-FEB-79 15:41 TTY INPUT ROUTINE 


3932 

015732 

000004 

016514 


TYPE 

..TYPE 

.-ECHO IT 

3933 

015736 

122723 

000015 


CMP8 

#15.(3)+ 

.•CHECK FOR RETURN 

3934 

0 1 5742 

001 343 



BNE 

2$ 

.-LOOP IF NOT RETURN 

3935 

015744 

005737 

015770 


TST 

INHRE 

3936 

015750 

001401 



BEQ 

5$ 


3937 

015752 

000402 



BR 

6$ 


3938 

015754 

105063 

177777 

5$: 

CLR8 

-1(3) 

; ZAP RETURN (THE 15) 

3939 

015760 

000004 

000012 

6$: 

TYPE 

.12 

.-TYPE A LINE FEED 

3940 

015764 

012603 



MOV 

(6) ♦ .R3 

.•RESTORE R3 

3941 

01 5766 

000207 



RTS 

PC 

.■RETURN 

3942 








3943 

015770 

000000 


INHRE: 

0 



3944 

015772 

000020 


INPUT: 

.8LKW 

20 

; TTY INPUT AREA 
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OCTAL DUMP OF A WORD 


SEG 0081 


SOCTAL 


OCTAL TYPEOU T ROUTINE 


.-THIS ROUTINE IS USED TO TYPE AN OCTAL NUMBER ON T HE TTY. IT WILL TYPE 
;ALL 6 CHARACTERS. SUPPRESS LEADING ZEROES. TYPE AN 18 BIT ADDRESS. OR TYPE 
;THE 16 BITS. IT IS CALLED VIA THE DLWP. SDUMP. DUMP18. OR BITYPE MACRO'S. 


5950 







#1 70101 , .PR 

SET BIT FLAG ANS 16. CHARACTER CO 

3951 

016032 

012737 

170101 

016200 

BITYPS: 

MOV 

395? 

016040 

000411 




BR 

.PTIT 

NOW TYPE IT IN BIT FORM 

3953 

016042 

112737 

000001 

016200 

PRINTR: 

MOVB 

#1..PR 

SET ZERO FILL SWITCH 

3954 

016050 

000402 




BR 

. ♦6 

SKIP 

3955 

016052 

005037 

016200 


PRINTS: 

CLR 

.PR 

SUPRESS LEADING ZERO’S 

3956 

016056 

112737 

177772 

016201 


MOVB 

#-6,.PR*1 

SET COUNT 

3957 

016064 

010446 



.PUT: 

MOV 

R4,-(6) 

SAVE R4 

3958 

016066 

012704 

016202 



MOV 

K.PR+2.R4 

SET POINTER TO FIRST ASCII CHAR. 

3959 

016072 

105014 




CLRB 

(4) 

CLEAR FIRST BYTE 

3960 

016074 

000411 




BR 

.PRF 

ROTATE FIRST BIT 

3961 

016076 

105014 



. PRL : 

CLRB 

(4) 

CLEAR BYTE OF CHARACTER 

3962 

016100 

032737 

000100 

016200 


BIT 

#100. .PR 

BIT TYPING MODE? 

3963 

016106 

001004 




BNE 

.PR F 

YES - SKIP 2 ROTATES 

3964 

016110 

006105 




ROL 

TTY 

ROTATE BIT INTO C 

3965 

016112 

106114 




R0L8 

(4) 

PACK IT 

3966 

016114 

006105 




ROL 

TTY 

ROTATE BIT INTO C 

3967 

016116 

106114 




ROLB 

(4) 

PACK IT 

3968 

016120 

006105 



.PR F: 

ROL 

TTY 

ROTATE BIT INTO C 

3969 

016122 

106114 




ROLB 

(4) 

PACK IT 

3970 

016124 

105714 




TSTB 

(4) 

IS IT ZERO? 

3971 

016126 

001402 




BEO 

.♦6 

SKIP INC 

3972 

016130 

105237 

016200 



INC8 

.PR 

SET FILL SWITCH 

3973 

016134 

105737 

016200 



TSTB 

.PR 

CHECK FILL SWITCH 

3974 

016140 

001402 




BEQ 

.♦6 

SKIP BITSET 

3975 

016142 

152724 

000060 



8ISB 

#'0. (4) ♦ 

MAKE INTO ASCII CHAR 

3976 

016146 

105237 

016201 



INC8 

.PR*1 

INC COUYT 

3977 

016152 

001351 




BNE 

.PRL 

REPEAT 

3978 

016154 

022704 

016202 



CMP 

A.PR+2.R4 

EMPTY BUFFER 9 

3979 

016160 

001002 




BNE 

. *6 

SKIP IF NOT 

3980 

016162 

112724 

000060 



MOVB 

#’0, (4) ♦ 

LOAD 1 ZERO 

3981 

016166 

105014 




CLRB 

(4) 

NULL TERMINATOR 

3982 

016170 

000004 

016202 



TYPE 

..PR+2 

TYPE IT 

3983 

016174 

012604 




MOV 

(6)*,R4 

RESTORE R4 

3984 

016176 

000207 




RTS 

PC 

RETURN 

3985 

016200 

000012 



.PR: 

.8LKW 

12 

COUNT, SWITCH. AND OUTPUT BuFFEP 
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POWER DOWN AND UP ROUTINES 


SECi 008? 


3986 

5987 

3988 

3989 

3990 

3991 

3992 

3993 

3994 

3995 
5996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 


016224 

016232 

016240 

016242 

016244 

016246 

016250 

016252 

016254 

016260 

016266 

016270 

016274 

016276 

016300 

016302 

016304 

016306 

016310 

016312 

016314 

016316 

016324 

016332 

016346 

016352 

C16354 

016356 

016360 


012777 

012777 

010046 

010146 

C 1 0246 

010346 

010446 

010546 

010637 

012777 

000000 

01 3706 
005001 
005201 
001 376 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
000004 
000137 

000000 

000776 

000000 

000024 


016352 

000340 


016356 

016270 


016356 


000122 


000072 


016224 

000340 

016336 

002472 


000026 


000024 

000026 


MOV 

#ILLUP.aPUVECS 

MOV 

#340,5)PUVEC$*2 

MOV 

R0.-(6) 

MOV 

R1.-C6) 

MOV 

R2.-(6) 

MOV 

R3.-L6) 

MOV 

R4,-(6) 

MOV 

R5.-(6) 

MOV 

SP..SAVR6 

MOV 

HALT 

#PUPS , 3PUVE C $ 

MOV 

.SAVR6.SP 

CLR 

R1 

INC 

R1 

BNE 

1$ 

MOV 

(6)*.R5 

MOV 

(6) *.R4 

MOV 

(61+.R3 

MOV 

(6) + ,R2 

MOV 

(6)*.R1 

MOV 

(6) ♦.RO 

MOV 

#PDOWNS.d#24 

MOV 

#340.d#26 

TYPE 

..♦2 

JMP 

RE STAR 

HA,, r 

8R 



.SAVR6: 0 
PUVECt: 24.26 


SET FOR FAST UP 
°R 1 0 : 7 

PUSH RO ON STACK. 

PUSH R1 ON STACK 
PUSH R 2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
SAVF SP 
SET UP VECTOR 
WAIT FOR PF 

GET SP 

WAIT LOOP FOR THE TTY 
WAIT FOR THE INC 
OF WORD 

POP STACK INTO R5 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO RO 

SET UP THE POWER DOWN VECTOR 

PRI0.-7 

.ASCIZ <15><12>* POWER** 

JMP TO USER ADDRESS 

; THE POWER UP SEQUENCE WAS STARTED 
; BEFORE THE POWER DOWN WAS COMPLETE 

;PUT THE SP HERE 
; POWER UP VECTOR 
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PI 1 26-FEB-79 

15:41 



POWER DOWN AND UP ROUTINES 

SE9 0083 

4018 

t.Q'9 





• I OT HANDLER. 

REENTERENT ROUTINE 

TO EITHER TYPE MtSSAGES OR 


4020 






INDICATE A FAULSE INTERUPT OR TRAP. 


4021 







4022 

4023 

016364 

022716 

001000 


IOTRAP: 

CMP 

ATI 000. (SP) 

CHECK RETURN ADDRESS FOR FAULSE TRAP 


4024 

016370 

002407 




BLT 

I OT S 

BRANCH IF "TYPE" COMMAND INTENDED 


4025 

016372 

162716 

0000C4 



sue 

#4. (SP) 

GET VECTOR ADDRESS FROM RETURN ADDRESS 


4026 

016376 

012601 




MOV 

(SP)+. R1 

PUT IN R1 FOR TYPING 


402? 

016400 

005726 




1ST 

(SP)* 

POP STACK 


4028 

016402 

011602 




MOV 

(SP). R2 

SAVE RETURN ADDRESS FOR TYPING 


4029 

016404 

104002 




HLT*2 


'UNEXPECTED INTERUPT OR TRAP 


4030 








R1 = VECTOR ADDRESS 


4031 








R2 = RETURN PC 


m03? 

016406 

000^02 




RTI 


CONTINUE THE PROGRAM 


4033 










4034 





;MCALL 

ST yet 




4035 





# 

tTYPE 

MESSAGE 

p YPEOUT ROUTINE 


4036 

403? 





.•THIS ROUTINE IS USE TO TYPE ASCII MESSAGES ON THE TTY. THE 


4038 





.-CALL CAN BE IN ONE OF 3 FORMS: 

) ‘TYPE .ADR - TYPES THE 


4039 





.-MESSAGE STARTING IN LOCATION ••ADR:". 2> "TYPE .CHAR" - TYPES 


4040 





:THF ASCII "CHAR". AND 3> "PRINT 

«1 5x1 2> ME SSAGE > - TYPES 


4041 





.THE MESSAGE WHICH IS INLINE ASCII. 


4042 










4043 

016410 

010546 



IOTS: 

MOV 

TTY. -(6) 

SAVE TTY 


4044 

016412 

017605 

000002 



MOV 

82(6) .TTY 

GET ADDRESS TO BE TYPED 


4045 

016416 

032705 

177400 



BIT 

#177400, TTY 

IS IT A TYPEM? 


4046 

016422 

001004 




BNE 

IS 

NO 


4047 

016424 

010537 

016514 



MOV 

TTY.. TYPE 

GET THE CHARACTER 


4048 

016430 

012705 

016514 



MOV 

#. TYPE. TTY 

FUDGE THE ADDRESS 


4049 

016434 

105715 



It: 

TSTB 

(TTY) 

TERMINATOR? 


4050 

016436 

001406 




BEO 

2S 

GET OUI IF SO 


4051 

016440 

112537 

177566 



M0V8 

(TTY) *,8#! 77566 

LOAD AM) TYPE THE CHARACTER 


4052 

016444 

105737 

177564 



TSTB 

8# 177564 

IS THE PRINTER READY 


4053 

016450 

100375 




BPL 

.-4 

WAIT UNTIL IT IS 


4054 

016452 

000770 




BR 

IS 

GET THE NEXT CHARACTER 


4055 

016454 

017646 

0000 0? 


2$: 

MOV 

82(6) .-(6) 

GET ADDRESS TO 8E TYPED 


4056 

016460 

062766 

000002 

000004 


ADD 

#2.4(6) 

ADD 2 TO THE ADDRESS 


4057 

016466 

022666 

000002 



CMP 

(6>*,2(6> 

IS IT .♦?? 


4058 

016472 

001006 




BNE 

3S 

NO 


4059 

016474 

062705 

000002 



ADD 

#2. TTY 

ADD 2 TO THE ADDRESS 


4060 

016500 

042705 

000001 



BIC 

#i,r ty 

BACK UP TO AN EVEN BYTE 


4061 

016504 

010566 

000002 



MOV 

TTY. 2(C) 

RESTORE ADDRESS 


4062 

0M510 

012605 



3$: 

MOV 

(6)*. TTY 

RESTORE TTY 


4063 

016512 

000002 




RTI 


RETURN 


4064 

016514 

0000*00 



.TYPE: 

0 


CHARACTER TYPE LOCATION 


hUd!> 

4066 

016516 

005u1 5 

047505 

000120 

ME OP: 

.ASCIZ 

<15><12> •tOP" 



406? 

016524 

005015 

000 


RETURN: 

.ASCIZ 

<15 x12> 



4068 

016527 

040 

000040 


SPACE : 

.ASCIZ 




4069 

016532 

005015 

044506 

051522 

MSGADR: 

.ASCIZ 

<15><12> TIRST DJU ADDRESS: " 


4070 

016540 

020124 

045104 

030461 






4071 

016546 

040440 

042104 

042522 






4072 

016554 

051523 

020CF2 

000040 






4073 

016562 

005015 

042526 

052103 

MSGVEC: 

.ASCIZ 

<*15xi2>' VECTOR 

ADDRESS: " 
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4074 

016^70 

051117 

040440 

042104 



4075 

016576 

042522 

051523 

020072 



4076 

016604 

000040 




. ASC I Z <15x 12>"NO. OF DJil'S: " 

4077 

016606 

005015 

047516 

020056 

MSGNllM: 

4078 

016614 

043117 

042040 

030512 



<*079 

016622 

023461 

035123 

020040 



4080 

01663C 

000 




.ASCI Z < 1 5><1 2>' ‘STANDARD CONFIGURATION? ” 

4081 

016631 

015 

051412 

040524 

MSGCON: 

408P 

016636 

042116 

051101 

020104 



4083 

016644 

047503 

043116 

043511 



4084 

016652 

051125 

052101 

0' 7511 



4085 

016660 

037516 

020040 

000 


.ASCIZ < 1 5>02>*UNES *’ 

4086 

016665 

015 

046012 

047111 

MSGUN: 

4087 

016672 

051505 

000040 




4088 

016676 

026440 

000040 


MSGDAS : 

.ASC I Z " - *• 

4089 

016702 

00501 5 

044103 

051101 

MSGLEN: 

.ASCIZ <1 5><1 2>* 'CHAR LENGTH: " 

4090 

016710 

046040 

047105 

052107 



4091 

016716 

035110 

020040 

000 



409 P 

016723 

015 

050012 

051101 

MSGPAR: 

.ASCIZ <1 5x .2>"PARI TV (NO, ODD. E WEN) : '* 

4093 

016730 

052111 

024131 

047516 



4094 

016736 

020054 

042117 

026104 



4095 

016744 

042440 

042526 

024516 



4096 

016752 

020072 

000040 




4097 

016756 

005015 

044523 

047514 

MAI ARM: 

.ASCIZ <15x12>"SILO ALARM LEVEL FOR CSR''<15x12> 

4098 

016764 

040440 

040514 

046522 



4099 

016772 

046040 

053105 

046105 



4100 

017000 

043040 

051117 

041440 



41C1 

017006 

051123 

005015 

000 



41 OP 

017013 

015 

041412 

042132 

MTITLE: 

.ASCIZ <15x12> "CZDJA-F 0J1 1 LOGIC TESTS"<15x12> 

41C3 

01 7020 

040512 

043055 

020C40 



41 G4 

017026 

045104 

030461 

046040 


• 

4105 

017034 

043517 

04 1 5 1 1 

052040 



<*106 

017042 

051505 

05 1 524 

005015 



4107 

017C50 

000 





4108 







4109 






; MESSAGES FOR 1NTERRPUT TESTING 

4110 

4111 






; APDED DURING REVISION F Of C7DJAF 

4112 

017051 

015 

C53412 

040510 

MS8R- 

.*SCIZ '15X12>/WHAT are THE 8R PRIORITIES ?? FOR::/ 

4113 

017056 

020124 

05*101 

020105 



4114 

017064 

044124 

020105 

051102 



4d5 

01 7072 

050040 

044522 

051117 



4116 

017100 

0521 1 1 

042511 

020123 



4117 

017106 

037477 

043040 

051117 



4" 18 

017114 

035072 

000 




4119 

017117 

015 

020C12 

044124 

MS8AD : 

.ASCIZ OxVx T HAT 8R IS A GOOD FOR NOTHING. TRY AGAIN?/ 

4120 

017124 

052101 

041040 

020122 



4121 

017(52 

051511 

040440 

043440 



4122 

01 7140 

047517 

020104 

047506 



<*123 

017146 

020122 

047516 

044124 



4124 

017154 

047111 

027107 

052040 



4125 

017162 

054522 

040440 

040507 



4*26 

017170 

047111 

000077 




4127 

01 71 74 

005015 

042504 

044526 

wICfc: 

.ASC 17<i 5x ' c ■'/DF v I' F / 

4 1 28 

O 1 720? 

042503 

020040 

000040 



4 1 29 





0 
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TESTS 
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TYPE ROUTINE 


>EG 0085 


4130 

4.131 

4132 

4137 

4134 

4135 

4136 

4137 

4138 

4 1 39 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 
4167 
4164 
065 
-166 

4167 

4168 

4169 

4170 

4171 

4 172 

4173 

4174 

4175 

4176 

4177 
417fi 

4179 

4180 
<.181 
4’82 
<.185 
418* 

4 '85 


S ORAGE FOR INTERRUPT TE ST JNG 


017210 

017212 

017214 

017216 

01722C 

017222 

017224 

017226 

017230 


000061 

000061 

000001 

OOOOOi 

000001 

000001 

OOOOOI 

OOOOOI 

000026 


.EVEN 

DEVNUM: 000061 
UNIT SI. 000061 
PRIOLO: .WORD 1 
NOW: ' .WORD 1 

MASK: .WORD * 

LFVEL: .WORD i 


UU T D J : 

CT: 

PRT8LE 

.EVEN 


.WORD 1 
.WORD 1 
•8LKW 26 


DEFAuLT FIRST DEVICF A 1 
STORE FOR UNITS*1, DF AUL T 1 
FOR DECIMAL PRIORITIES A 
OCTAL A OF BR 
OF CURRENT TESTING 
OCTAL A OF ALLOWED BR 
DECIMAL BR PRIO 

DEVICE A FOR ROTATE LEFT OF BR 
STORE COUNTER FOR ROLS 
TABLE OF INPUT BR 


017304 

012700 

1 600C0 

AUTO: 

MOV 

A160000.RO 

017310 

012 7 02 

OOOOOI 


MOV 

A 1 . 

R 2 

017314 

012737 

000002 

000O06 

MOV 

ARTI , 

«A6 

017322 

0050C1 


5S: 

CLR 

ftl 


01 7324 

000261 


1$: 

SEC 



017326 

005 7"’ 0 



1ST 

(R0> 


017330 

103404 



3CS 

21 


017332 

06 2700 

0000 ’0 


ADD 

A 10, 

RO 

017336 

005201 



INC 

R1 


01 7340 

000771 



BR 

1$ 


017542 

005302 


2$: 

TEC 

R2 


017344 

100405 



BMI 

7$ 


017346 

062700 

000010 


ADD 

A10. 

RO 

Oi 7352 

010037 

001340 


MOV 

RO. 

DEvADR 

01 7356 

000761 



BR 

5S 


017360 

005037 

000006 

7$: 

CLR 

BA6 


017364 

010137 

001 344 


MOV 

R1 . 

INI FS 

01 7370 

001003 



BNF 

3$ 


017372 

104000 



HlT 



01 7374 

OOOT57 

014376 


JMP 

DONE 



017400 
C 17404 
017417 
017416 


017422 
01 7424 
017430 
C’7432 


01 3746 
012737 
C1370 1 
012^21 


005721 

012721 

OOOOOI 

C12637 


00002G 

0174/.C 000020 

001340 

040400 


OOOOOI 


00002C 


.-SUBROUTINE TO AUTOMAMCLY DETERMINE THE NUMBER OF DJii’S ON THE SYSTEM 
and WHERE THEIR INTERUPT VECTORS ARE. 

.-THIS ROUTINE IS ONLY USED IF LOC 4? IS NOT ZERO. AS WHEN THE PROGRAM I c 
BEING RUN UNDER AC Til OR DDP MONITOR CONTROL. 

.-NOTE: SOME OF T Hf LOGIC MUST BE FUNCTIONAL OR THIS ROUTINE WILL BOMB 

AUTO: MOV A160000.R0 .-START AT NO RESPONSE BASE DJU -10'8> 

MOV Ai, R2 .COUNTER OF NON RESPONSE OR Djli OP DONE 

MOV ARM. ba6 ;RTI WHEN TIME-OUT 

CLR R1 .SET UP COUNTER 

’J: SEC .SET CARRY 

1ST (RO) ; CHECK FOR ANY DJU’S 

9CS 2t .-BRANCH IF IT MMED OUT 

ADD A10, RO .POINT TO NEXT D J 1 1 ADDRESS 

INC RT ; COUNT DJVS 

BR 1$ .-LOOK FOR MORE 

2t: TEC R2 .COUNT DOWN DEVICES 

BMI 7| .-BRANCH IF DONE 

ADD A10. RO .-POINT TO FIRST DJll 

MOV RO. DEvADR ;SAVE FIRST DJll ADDRESS 

BR 5S ;G0 COUNT DJlTS 

7 %: CLR SA6 ; RESTORE TIME-OUT CATCHER 

MOV R1. UNIFS .-SAVE COUNT 

BNF 3* .-BRANCH IF NOT ZERO 

hlt .-report that no Dur-’s were fc tjm 

JMP DONE .EXIT THIS PROGRAM 

.•ROUTINE TO DETERMINE vEC T OR ADDRESSES 

5$: MOV dA 20, “(SP) .’SAVE IOT VECTOR ON THE STAC* 

MOV A4S, iA?0 .-RESET IOT VECTOR 

MUv DEVADR, R 1 ;G£T FIRST DJ ADR 

MOV A40400. fRT )♦ ; SE T CSR 

;8I r 8 = TRANS SCAN ENABLE 
;9I T14 = TRANS INTERUP ? t NA8> E 
’ 5 T FR1 ) ♦ ; INC POINTER 

MOV A 1 , RT)* ;SET TCR, LINE 0 

WAIT .-WAIT FOR AN INTERUPT 

MOV SP)*. aiAt'O .-RESTORE IOT vEc T OR 


1 
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automatic system sizer 


<EG JJbt 

4186 

0 1 7436 

0**0207 




RTS 

PC 



4. 1 o ' 

4188 

017440 

162716 

000010 


4$: 

SUB 

#10. (SP) 

.•REPOSITION ADDRESS TO RVC VEC 


4*89 

017444 

0 1 *637 

001342 



MOV 

( SP ) , VECADR 

;SAVE FIRST VECTOR 


419C 

017450 

022626 




:mp 

(SP>*. (SP>* 

.-RESET STACK FROM IOT 


<,191 

017452 

000002 




PT I 


.•RETURN FROM INTERUPT - RESTORE STATUS 


.192 

/ 1 Cj / 










4194 

017454 

C22737 

000176 

00 1 374 

k.BDInT: 

CMC* 

ASUlREG.SwR 



4 1 95 

0174o2 

001 0i6 




BNF 

IS 



4196 

017464 

005037 

017522 



ClR 

TMP1 



4197 

017470 

113737 

177562 

017522 


M0VB 

1 77562, TMP1 



4198 

017476 

142737 

000200 

01 7522 


61 ca 

A200.TMP1 



4199 

017504 

122737 

000007 

017522 


CMP8 

#7, TMP1 



4200 

017512 

001002 




BNE 

IS 



4201 

017514 

C04757 

017604 



JSR 

PC.CNTLU 



4202 

017520 

000207 



IS: 

RTS 

PC 



4203 










4204 

01 7522 

000000 



TMP1 : 

0 




4205 










4206 










4207 

017524 

013 7 46 

000006 


SUSWRR: 

MOV 

6.-CSP) 



4208 

017530 

01 3746 

000004 



MOV 

4.-(SP) 



4209 

017534 

012737 

017554 

000004 


MOV 

m.4 



4210 

01 7542 

022777 

1 77777 

16*624 


CMP 

#-i .sswr 



4211 

017550 

001402 




BEQ 

2S 



4212 

017552 

000407 




BP 

3S 



4213 

017554 

022626 



IS: 

C fV 

(SP)+.(SP)* 



4214 

017556 

012737 

000176 

001374 

2i: 

MOV 

#SURFG.SWR 



4215 

017564 

012737 

0001 74 

001376 


MOV 

4DISPREG.P1 SPLAY 


4216 

017572 

012637 

00C004 


3S: 

MOV 

(5P)*.4 



421 7 

017576 

012637 

000006 



MOV 

(SP) *.6 



4218 

017602 

000207 




RTS 

PC 



4219 

/ o *>n 










cc\j 

4221 

017604 

022737 

000176 

C01 374 

CNTIU: 

CMP 

4SWREG.SUR 



4222 

017612 

001023 




BNE 

IS 



4223 

017614 

000004 

01 7676 



TYPE 

.SUREO 



4224 

017620 

013705 

0001 76 



MOV 

SWREG.TTv 

;TYPE SUREG IN OCTAL 


4225 

01 7624 

004737 

016042 



JSR 

PC.PRINTR 

.-TYPE LEADING ZERO'S 


422ft 

017630 

000004 

01 7666 



TYPE 

.NEWIS 



4227 

017634 

004537 

015476 



JSR 

R5.READIN 



4228 

017640 

017522 




.WORD 

TMP1 



4229 

017642 

001360 




BNE 

CNTLU 



4230 

017644 

022737 

000020 

01 7664 


CMP 

#2 9, CNT 



4231 

017652 

001403 




BEG 

IS 



4232 

017654 

013777 

017522 

161512 


MOV 

TMPl.aSWR 



4233 

017662 

000207 



’S: 

RTS 

PC 



4234 










4235 

017664 

000000 



CNT: 

0 




4236 










4237 

017666 

020040 

042516 

036527 

NEWIS: 

.ASCJZ 

" NFW= " 



4238 

017674 

000040 








4239 

017676 

005015 

053523 

036522 

SWREO: 

.ASCI7 

<15><12>"SWR- " 



4240 

017704 

000040 








4241 
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CROSS REFERENCE 

TABLE 

AAA 

002030 

697 

699# 




AGAIN1 

004562 

1312# 

1364 




AGAIN2 

011620 

2922# 

299? 




ALMCK 

014644 

2814 

3740# 

3756 



ALWIG 

001350 

591# 

625* 

2812 

2815* 

3641* 

AROUND 

002470 

784 

787# 




AUTO 

O 1 7304 

628 

4151# 




BL SR 

001 324 

579# 

3354* 

3355 

3360* 

3361 

BEGIN 

001402 

551 

611# 




BELL - 

000007 

516# 

*651 

3839 



BI T YP$ 

016032 

3951# 





BITO - 

000001 

517# 

1032 

1034 

1044 

1176 



2868 

2941 

3292 

3757 


BIT1 = 

000002 

518# 

865 

866 

875 

1478 

BIT10 = 

002000 

527# 

949 

950 

959 

2193 

bi m - 

004000 

528# 

2272 




BI T 12 = 

010000 

529# 

970 

971 

980 

2353 

BI 11 3 - 

020000 

530# 

2432 

3029 

3070 

3144 

BIT14 - 

040000 

531# 

991 

992 

1001 

2511 

BIT15 ~ 

100000 

53 2# 

2590 


BIT2 

000004 

519# 

886 

887 

896 

1013 

BIT3 

000010 

520# 

1015 

'■017 

1636 

2682 

BI FA 

000020 

521# 

1021 

1717 

2683 

2819 

BIT5 - 

000040 

522# 

1796 



BIT6 

000100 

523# 

907 

908 

917 

1875 

BIT7 - 

000200 

524# 

1954 

2760 


BIT6 

000400 

525# 

928 

929 

938 

2035 

BI T9 

001000 

526# 

2114 



BRSET 

01446* 

',315 

2925 

5667# 



CLRVEC 

002526 

792 

794 

797# 



CNT 

017664 

3886* 

3904* 

4230 

4235# 


CNTLU 

017604 

795 

4201 

4221# 

4229 


CONE IG 

002004 

663 

694# 

712 


COUNT 

001356 

594# 

2823 

2871 

2944 

3235 

CSR 

001320 

576# 

803* 

810* 

815 

844 



887 

891 

895* 

896 

907* 



938 

949* 

950 

954 

958* 



996 

1000* 

1001 

1013* 

1015* 



1059* 

1060* 

1061 

1066* 

1067* 



1095 

1175* 

1178 

1194 

1199 



1285 

1324* 

1326 

1362* 

1400 



1568 

1604 

1610* 

1637 

1647 



1843 

1849* 

1876 

1886 

1922 



2088* 

2115 

2125 

2161 

2167* 



2354 

2364 

2400 

2406* 

2433 



2601 

2637 

2643* 

2673 

2679 



2755 

2786 

2792* 

2816* 

2819 



2995* 

3026 

3037 

3041 

3069 



3198 

3201 

3206* 

3209 

3230 



3332* 

3333 

3343* 

3353* 

3514* 


01 7226 

5711* 

3714* 

3717* 

3720* 

5732 

rr 

1312* 

2922* 

3680* 

4141# 

>DD 

002074 

709 

711# 



>EF ADR 

001370 

600# 

639 




DEFVE C 

001372 

601# 





DEVAOR 

001340 

587# 

635 

637 

639* 

640* 


K 7 

:4 7 PAGE 90 
USER SYMBOLS 


3381* 

3425* 

34 19* 

3509' 

1198 

1266 

1284 

1325 

285 j 




3133 

3202 

3307 




1027 

3206 

3273 

1046 

3577 

1557 

3732 

3742 


3743* 

3750* 

3758 

3760 

845* 

846* 

865* 

866 

908 

912 

916* 

917 

959 

970* 

971 

975 

1016 

1032* 

1033 

1034 

1C68* 

1069* 

1070 

1084* 

1214* 

1219 

1239 

1244 

K10 

1446 

1452* 

1479 

1683 

1689* 

1718 

1728 

1928* 

1955 

1965 

2001 

2194 

2204 

2240 

2246* 

2443 

2479 

2485* 

25V 

2682* 

2683 

2689 

2702 

2824 

2832 

2845* 

2872 

3H6 

3133* 

3134 

3140 

3259* 

3270* 

3275 

3277 

3528* 

3535 

3572* 

357? 

3735* 

3740 

3865 


641 

8*0 

4165* 



SfO 0068 


3529* 3545 

1399 2671 27<»1 ?8'i 


3764 

3774 

3784 


870 

874* 

875 

886* 

<V8* 

929 

933 

937* 

9.'9» 

980 

991* 

992 

1038 

1044* 

1045 

1046 

1085 

1089* 

1090 

1094* 

1265* 

1268 

1275* 

1277 

1489 

1525 

1531* 

1558 

1764 

1770* 

1?9 7 

1807 

2007* 

2036 

2046 

2082 

2273 

2283 

2319 

2325* 

2522 

2558 

2564* 

2591 

2719* 

2742 

2745 

2748 

2880 

2893* 

294} 

2950 

3143 

3148 

31 

319? 

5280 

3286 

3290- 

329"' 

3579* 

358? 

359 1 

3635* 
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DEVNEu / 

002400 

772 m 

783 

786 











DEVNUM 

O 1 7210 

766* 

773 

781* 

782 

4133# 









DISPLA 

001376 

604# 

3815* 

3819* 

4215* 










DISPRE 

000174 

547# 

4215 












DJLEN 

001364 

598# 

805* 

812* 

1430 

1509 

1588 

1667 

1691* 

1748 

18^7 

1906 

1985 

2009* 



2066 

3631* 

2145 

2224 

2303 

2327* 

2384 

2463 

2542 

2621 

2645* 

3588 

3607* 

3619 

DjMXNO - 

000020 

535# 

689 












DJPAR 

001366 

599# 

806* 

813* 

3396 

34 70 









DJ'JUT 

001362 

597# 

692* 

807 

809* 

814* 

3639 

3670 







DONE 

014376 

3640 

3644# 

4172 











EMTS 

015254 

618 

3836# 












END22 

004732 

1367# 













END56 

014314 

3611 

3631# 












ERRORS 

001312 

573# 

622* 

3840* 

3861 










ERRORS 

015426 

3850 

3864# 












ERROR 1 

004672 

1333 

1341 

1344# 











ERR0R2 

011752 

2956 

2963 

2966# 











FTIME 

001400 

607# 

791 

796* 











getadr 

001514 

627 

631# 

636 

64 2 










GETLEN 

002156 

726# 

732 

736 

740 










GETNUM 

001650 

656# 

665 

667 

672 

674 

677 

690 







getpar 

002242 

730 

742# 

752 











GETVE r 

0C1 5 72 

644# 

647 

653 

655 










HLT 

1 04000 

504# 

848 

853 

868 

872 

877 

889 

893 

898 

910 

914 

919 

931 



935 

940 

952 

956 

961 

973 

977 

982 

994 

998 

1 QQ3 

1019 

1025 



1029 

1036 

1040 

1048 

1064 

1073 

1087 

1092 

1097 

1110 

1115 

1129 

1138 



1152 

1157 

1162 

1182 

1192 

1196 

1201 

1223 

1234 

1241 

1246 

1270 

1281 



1287 

1355 

1411 

1417 

1427 

1433 

1439 

1444 

1449 

1490 

1496 

1506 

1512 



1518 

1523 

1528 

1569 

1575 

1585 

1591 

1597 

1602 

1607 

1648 

165*. 

1664 



16 7 0 

1676 

1681 

1686 

1729 

1735 

1745 

1751 

1757 

1762 

1767 

1808 

1814 



1824 

1830 

1836 

1841 

1846 

1887 

1893 

1903 

1909 

1915 

1920 

1925 

1966 



1972 

1982 

1988 

1994 

1999 

2004 

2047 

2053 

2063 

2069 

2075 

2080 

2085 



2126 

2132 

2142 

2148 

2154 

2159 

2164 

2205 

2211 

2221 

2227 

2233 

2238 



2243 

2284 

2290 

2300 

2306 

2312 

2317 

2322 

2365 

2371 

2381 

2387 

239* 



2398 

2403 

2444 

2450 

2460 

2466 

2472 

2477 

2482 

2523 

2529 

2539 

2545 



2551 

2556 

2561 

2602 

2608 

2618 

2624 

2630 

2635 

2640 

2688 

2692 

2705 



2712 

2716 

2750 

2763 

2768 

2772 

2776 

2780 

2784 

2789 

2835 

2843 

2850 



2883 

2891 

2900 

2977 

2987 

2991 

3031 

3043 

3052 

3056 

3074 

3078 

3092 



3096 

3107 

3119 

3137 

3149 

3'* 57 

3162 

3169 

3180 

3195 

3204 

3212 

3217 



3221 

3228 

3240 

3246 

3252 

3294 

3504 

3309 

3314 

3322 

3327 

3336 

3358 



3363 

3389 

3394 

3400 

3405 

3410 

3414 

3418 

3423 

3456 

3462 

3474 

3480 



3486 

3494 

350 1 

3506 

3539 

3543 

3547 

3551 

3555 

3594 

3599 

3615 

3622 



3730 

3786 

4029 

4171 










hltadr 

015424 

3844* 

3845* 

3846 

3847 

3862# 









hltcts 

015422 

3846* 

3861# 

3868* 











ICNT 

001310 

572# 

830* 

3802 

3808 

3810 

3812* 

3813* 

3815 

00 
— * 

CO 

• 

3819 

3825 

3858* 


ILL UP 

016352 

3986 

4013# 












INMRE 

015770 

727* 

743* 

3879* 

3881* 

3935 

3943# 








INI TA 

014550 

3375 

3440 

3711# 











INI TB 

014560 

2934 

3714# 












INI TC 

014570 

2861 

3717# 












INI TD 

014600 

1 392 

1471 

1550 

1629 

1710 

1789 

1868 

1947 

2028 

2107 

2186 

2265 

2346 



2425 

2504 

2583 

2663 

2734 

2805 

3017 

3720# 






INI TR 

014606 

3712 

3715 

3718 

3722# 










INPUT 

015772 

659 

696 

705 

708 

711 

729 

731 

733* 

737* 

745 

747 

749 

751 
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CROSS REFERENCE 

TABLE - 



776 

778 

780 

3887 

3917 

INTR1 

004656 

1309 

1336# 




INTR2 

011736 

2919 

2959# 




101 RAP 

016364 

6H 

4023# 




IOTt 

016410 

4024 

4043# 




I SR 56 

014260 

3567 

3613# 




KBDINT 

017454 

3645 

3767 

3799 

3836 

3854 

k 1 T$ 

015222 

7805 

3811 

3818# 

3859 


LAD 

015250 

831* 

1166* 

1374- 

1692* 

2010* 

LENGTH 

001200 

567# 

700 

715 

812 


LEVEL 

01 7222 

3677* 

4139# 




LEVEL7= 

000340 

533# 

843 




LOP23 

005002 

1400# 

1401 




LOP24 

005172 

1479# 

1480 




LOP25 

005362 

1558# 

1559 




L0P26 

C05552 

1637# 

1638 




LOP27 

005754 

1718# 

1719 




LOP 30 

006144 

1797# 

1798 




L0P31 

006334 

1876# 

1877 




LOP 32 

006524 

1955# 

1956 




LOP33 

006726 

2036# 

2037 




LOP 34 

007116 

2115# 

2116 




LOP35 

007306 

2194# 

2195 




LOP 36 

007476 

2273# 

2274 




LOP37 

007700 

2354# 

2355 




LOP40 

010070 

2433# 

2434 




L0P41 

010260 

2512# 

2513 




LOP42 

010450 

2591# 

2592 




L0P51 

013070 

3277# 

3278 

3341 



LOP54 

013542 

3448# 

3512 




MALARM 

016756 

3770 

4097# 




MASK 

017220 

1332 

1340 

1350 

2955 

2962 

ME OP 

016516 

3648 

4066# 




MS8AD 

017117 

785 

4119# 




MS8R 

017051 

765 

4112# 




MSGADR 

016532 

633 

4069# 




MSGCON 

016631 

694 

4081# 




MSGDAS 

016676 

721 

3773 

4088# 



MSGLEN 

016702 

726 

4089# 




MSGLIN 

016665 

718 

4086 # 




MSGNLW 

016606 

656 

4077# 




MSGPAR 

016723 

742 

4092# 




MSGVEC 

0165 62 

644 

4073# 




MTITLE 

017013 

631 

4102# 




N 

000057 

441# 

835 

859# 

880# 

901# 



1118# 

1142# 

1165# 

1167 

1206# 



1693 

1772# 

1851# 

1930# 

2009# 



2566# 

2645# 

2654 

2723# 

2795# 



3518 

3559# 

3638# 


NEWIS 

017666 

4226 

4237# 




NINTR1 

004644 

1329# 





NINTR2 

01 1 724 

2952# 





NOGOOD 

002462 

777 

779 

785# 



NOW 

017216 

1314* 

4136# 

1323 

1332 

1340 

1352 

OPEN 

000000 

534# 






SCO oooo 
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3918 3944# 


4194# 

2528* 2653* 3814* 3820 3822 3825# 


2972 3674* 3675* 367? 3678* 4138 # 


922# 

943# 

964# 

985# 

, 006# 

1053# 

1077# 

1100# 

1257# 

1291# 

1373# 

1375 

1454# 

1533# 

1612# 

■'691# 

2011 

2090# 

2169# 

2248# 

2327# 

2329 

2408# 

2487# 

2855# 

2906# 

3007# 

3264# 

3347# 

3366# 

3431# 

*517# 

1363 

2924* 

2933 

2955 

2962 

2974 

2996 

3679* 
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SEQ 0091 
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CROSS REFERENCE 

TABLE - 

- USER SYMBOLS 






OVERS 

015226 

3803 

3819# 


3396 

3470 









PARITY 

001 300 

568# 

716 

757 









PAR IT? 

001302 

569# 













PAR I T 3 

001 304 

570# 













PARIT4 

001306 

571# 




3647* 

36o3 








PCNT 

001314 

574# 

623* 

624* 

3646* 








PDOWNS 

016224 

616 

3986# 

4008 



3953# 

4225 







PRINTR 

016042 

3772 

3775 

3848 

3866 

3873 







PRIMS 

016052 

720 

724 

3955# 




4135# 







PRIOLO 

017214 

1311* 

1313* 

1314 

2921* 

2923* 

2924 







PR1BLE 

017230 

769 

3672 

4142# 




3001* 

3129* 

3130* 

3189* 

3190* 

3260* 

3526* 

PS 

1 77776 

506# 

1322* 

1323* 

1369* 

2932* 

2933* 

3569* 

3570* 

3907 

3911* 










PS T EM D 

015642 

3907* 

3911 

3914# 











PUPS 

016270 

3995 

3998# 


4017# 










PUVECS 

016360 

3986* 

3987* 

3995* 

710 

765# 








OAfiR 

002344 

553 

629 

698 

707 





1724 

1760 

1803 

RBUF 

001322 

5 77# 

817* 

1406 

1442 

1485 

1521 

1564 

1600 

1643 

1679 

1839 

1882 

1918 

1961 

1997 

2042 

2078 

2121 

2157 

2200 

2236 

2279 

2315 



2360 

2396 

2439 

2475 

2518 

2554 

2597 

2633 

2686 

2714 

2766 

2774 

2782 



2841 

2846 

2889 

2898 

2985 

3090 

3150 

3155 

3215 

3250 

330C 

3325 

3385 



3421 

3452 

3504 

3549 

3597 

3613 

3627 


3632 

3633* 




RCVLVL 

001332 

583# 

825* 

2920* 

2999 

3132* 

3254 

3255* 

3568* 

3632- 



RCWEC 

001330 

582# 

804* 

811- 

823 

2919* 

2999* 

3131* 

3191* 

3254* 

3567* 



READ IN 

015476 

63a 

645 

3879# 

4227 










READS 

015644 

657 

695 

728 

744 

775 

3880 

3916# 







RE STAR 

002472 

789# 

3642 

3661 

4011 










RETURN 

016524 

632 

4067# 








1005 

1052 

107b 

1099 

SCOPE - 

104400 

503# 

832 

858 

879 

900 

921 

942 

963 

984 

1117 

1141 

1164 

1204 

1255 

1289 

1371 

1453 

1532 

1611 

1690 

1771 

1850 



1929 

2008 

2089 

2168 

2247 

2326 

2407 

2486 

2565 

2644 

2721 

2793 

2854 



2904 

3005 

3262 

3345 

3365 

3429 

3515 

3557 

3636 





SPACE 

U16527 

3871 

4063# 












SSS 

002060 

706 

708# 












STACK - 

001200 

536# 

611 

790 



3764* 

3766* 







SUM 

001360 

595# 

3586 

3744* 

3760* 

3761 







SUSUIRR 

017524 

612 

4207# 












SVLADS 

01 5202 

3807 

3813# 

3821 





3806 

3837 


3851 

3855 

4194 

SWR 

001374 

603# 

793 

3649 

3768 

3800 

3802 

3804 

3841 

4210 

4214* 

4221 

4232* 










SWREG 

000176 

548# 

793 

4194 

4214 

4221 

4224 








SWREQ 

017676 

4223 

4239# 












swio - 

002000 

455# 

3649 

3836 

3837 










SW11 

004000 

454# 

3806 












SWl 2 = 

010000 

453# 

3768 












SWl 3 

020000 

452# 

3841 












SWl 4 = 

040000 

451# 

3804 












SWl 5 - 

100000 

450# 













SW8 

000400 

458# 

3799 

3800 











SW9 

001 OCO 

457# 

3855 







1720* 

1799* 

1878* 

1957* 

2038* 

T8UF 

001 326 

580# 

822* 

1187 

1230 

1402* 

1481* 

1560* 

1639* 

2117* 

2196* 

2275* 

2356* 

2435* 

2514* 

2593* 

2675* 

2744* 

2747* 

2826* 

2874* 

2947* 



3028* 

3065* 

3139* 

3142* 

3197* 

3200* 

3279* 

3282* 

3532* 

3555 

3584* 

1133* 

1134* 

TCR 

001324 

578# 

819* 

1106* 

1107 

1112* 

1113 

1124* 

1125* 

1126 

1131* 

1132* 

1135 

1149* 

1150 

1154* 

1155 

1159* 

1160 

1176* 

1198* 

1217* 

1243* 

1 266* 

1284* 



1325’ 

1361* 

1399* 

1451* 

1478* 

1530* 

1557* 

1609* 

1636* 

1688* 

1717* 

1 769* 

•'796* 
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THRUl 

004714 

1848* 

2353* 

2852* 

1334 

THRU2 

011774 

2957 

TIME 

015056 

3753 

TIMER 

001346 

590# 

TIMERA 

001 352 

1969* 

2698 

592# 

T IMERB 

001354 

593# 

TIMES 

015252 

3517* 

TMP1 

017522 

4196* 

TRAP$ 

015112 

620 

TST1 

002744 

842# 

TST10 

003420 

991# 

TST11 

003472 

1013# 

TST12 

003634 

1059# 

TST1? 

003722 

1084# 

TST14 

003776 

1106# 

TST15 

004036 

1124# 

TST16 

004124 

1149# 

TST17 

004214 

1175# 

TST2 

003024 

865# 

TST20 

004324 

1214# 

TST21 

004440 

1265# 

TST22 

004540 

1309# 

TST23 

004770 

1392# 

TST24 

005160 

1471# 

TST25 

005350 

1550# 

TST26 

005540 

1629# 

TST27 

005742 

1710# 

TST3 

003076 

886# 

TST30 

006132 

1789# 

T ST31 

006322 

1868# 

TST32 

006512 

1947# 

TST33 

006714 

2028# 

TST34 

007104 

2107# 

TST35 

007274 

2186# 

TST36 

007464 

2?65# 

TST37 

007666 

2346# 

TST4 

003150 

907# 

TST40 

010056 

2425# 

TST41 

010246 

2504# 

TST42 

010436 

2583# 

TST43 

010670 

2663# 

TST44 

011054 

2734# 

TST45 

011262 

2805# 

TST46 

011444 

2861# 

TST47 

011576 

2919# 

TST5 

003222 

928# 

TST50 

012056 

3017# 

TST51 

013042 

3270# 

TST52 

013314 

3355# 

TST53 

013362 

3375# 

TSTS4 

013530 

3440# 
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1875* 

1927* 

1954* 

20C6* 

2405* 

2432* 

2484* 

2511* 

2994* 

2868* 

2902* 

2941* 

1342 

1360# 



2964 

2983# 



3780# 

1165* 

1186* 

1229* 

1267 

2050* 

2129* 

2208* 

2287* 

2752 

2829 

2877 

3036 

3745* 

3780* 



3746* 

3782* 



3636* 

3810 

3826# 


4197* 

3799# 

4193* 

4 1 90 

4204# 
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USER SYMBOLS 


2035* 

2087* 

2114* 

2166* 

2563* 

2590* 

2642* 

2671* 

3024* 

3258* 

3276* 

3340* 


1373* 

1414* 

1493* 

1572* 

2368* 

2447* 

2526* 

2605* 

3066 

3283 

3297 

3582 

4228 

4232 




SEO 009 ? 


2193- 

2245* 

2272* 

2324* 

2718* 

2741* 

2791* 

2811* 

3527* 

3541 

3581* 

5634* 

1651* 

1752* 

1811* 

1890* 

2646* 

2647 

2651* 

2652* 

3448 
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TS1 55 

013734 

3526* 













TST56 

014054 

3565* 













TST6 

003274 

949 * 













TST7 

003346 

970* 













TYPE = 

000004 

505* 

631 

632 

633 

644 

656 

694 

718 

721 

726 

742 

765 

772 



773 

774 

785 

3648 

3651 

3652 

3770 

3773 

3839 

3843 

3849 

3871 

3929 



3932 

3939 

3982 

4010 

4223 

4226 








typlin 

002124 

718* 

756 

761 











T50A 

012172 

3065* 













T508 

012236 

3089* 













T50C 

012326 

3129* 













T50D 

012542 

3189# 













UNITS 

001 344 

589* 

691* 

760 

771 

80 7 

3639 

4169* 







UNI TS 1 

017212 

767* 

771* 

782 

4134# 










UUTDJ 

017224 

4140* 













VECADR 

001342 

588* 

646 

648 

650* 

651* 

652 

654 

811 

4189* 





VICE 

017174 

772 

4127* 












WAIT1 

004636 

1326* 

1327 












XMTLVL 

001336 

585* 

829* 

1310* 

1367 

1368* 

3000* 








XMTVEC 

001334 

584* 

827* 

1309* 

1367* 










SENDAD= 

014450 

544 

3656# 












. 

017706 

537* 

541 

543# 

546 * 

550* 

55 2* 

555* 

567# 

867 

871 

876 

888 

892 



897 

909 

913 

918 

930 

934 

939 

951 

955 

960 

972 

976 

981 



993 

997 

1002 

1018 

1028 

1035 

1039 

1047 

1063 

1072 

1086 

1091 

1096 



1109 

1114 

1128 

1137 

1151 

1156 

1161 

1166 

1191 

1195 

1200 

1233 

1240 



1245 

1286 

1374 

1416 

1426 

1432 

1438 

1443 

1448 

1495 

1505 

1511 

1517 



1522 

1527 

1574 

1584 

1590 

1596 

1601 

1606 

1653 

1663 

1669 

1675 

1680 



1685 

1692 

1734 

1744 

1750 

1756 

1761 

1766 

1813 

1823 

1829 

1835 

1840 



1 845 

1892 

1902 

1908 

1914 

1919 

1924 

1971 

1981 

1987 

1993 

1998 

2003 



2010 

2052 

2062 

2068 

2074 

2079 

2084 

2131 

2141 

2147 

2153 

2158 

2163 



2210 

2220 

2226 

2232 

2237 

2242 

2289 

2299 

2305 

2311 

2316 

2321 

2328 



2370 

2380 

2386 

2392 

2397 

2402 

2449 

2459 

2465 

2471 

2476 

2481 

2528 



2538 

2544 

2550 

2555 

2560 

2607 

2617 

2623 

2629 

2634 

2639 

2653 

2687 



2691 

2704 

2711 

2715 

2749 

2756 

2762 

2767 

2771 

2775 

2779 

2783 

2788 



2842 

2890 

2899 

2986 

2990 

3030 

3042 

3051 

3055 

3077 

3091 

3095 

3106 



3118 

3136 

3156 

3161 

3168 

3179 

3194 

3211 

3216 

3220 

3227 

3239 

3245 



3251 

3287 

3293 

3308 

3313 

3321 

3335 

3357 

3362 

3393 

3404 

3409 

3413 



3417 

3422 

3461 

3485 

3493 

3500 

3505 

3538 

3542 

3546 

3550 

3554 

3593 



3598 

3621 

3656 

3663 

3825 

3843 

3844* 

3849 

3850* 

3852 

3856 

3861 

3862 



3921 

3929 

3944* 

3954 

3971 

3974 

3979 

3985* 

4010 

4014 

4053 

4142# 


.BIT 

1 77777 

441* 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

3649 

5799 



3836 

3841 

3855 











.PR 

016200 

3951* 

3953* 

3955* 

3956* 

3958 

3962 

3972* 

3973 

3976* 

3978 

3982 

3985# 


.PRF 

016120 

3960 

3963 

3968# 











.PR L 

016076 

3961* 

3977 












.PTIT 

016064 

3952 

395 7* 












.SAVR6 

016356 

3994* 

3998 

4016* 











.TYPE 

0165H 

3931* 

3932 

4047* 

4048 

4064# 










ZZ-CZDJA 

-F-0 D J 1 1 LOGIC 

TESTS 

MAC Yl 

CZDJAF.o 

11 26 

-FEB-79 

15:41 


bitype 

1# 

533# 



BL <BL K. 

1# 




BUF HDR 





DUMP 

1 # 

5 33# 

3847 

5865 

DUMP18 

1 # 




FILBLK 

iff 




INKBLK 

Iff 




OOT11 

Iff 




ODT11X 

Iff 




POP 

Iff 

533# 

1357 

2980 

PRINT 

Iff 

533# 

3843 

3849 

PUSH 

'# 

533# 

1347 

2969 

SCOPE. 

1# 




SCOP. 

Iff 




SDUMP 

Iff 

533# 

719 

723 

TRACE 

1 * 




TRNBLK 

Iff 




TYPEM 

Iff 




WRITE 

iff 




S8RK 

835ff 

3431 



S8RK0 

835 ff 

3366 



S8YTRF 

855ff 

1053 

1118 


tCATCH 

Iff 




SCLREG 

835ff 

1077 

1142 


SCMOS 

835ff 

2654 



SCMTAG 

Iff 




tLNTL 

Iff 

4220 



SCSREF 

835ff 




SDONE 

835ff 

1375 

1454 

1533 


2487 

2566 



SEND 

Iff 

5644 



SEQUAT 

Iff 

503 



SEXER 

835# 

3559 



SFIFOV 

835ff 

3007 



SHD 

835# 

2855 



SHLT 

1# 

3828 



SiOCAT 

441# 

537 



SIOT 

441# 

4018 



SKBIN 

*# 

4193 



SX.RAT 

1# 




SLOADR 

1# 




SLVL 

835# 

1291 



SMTSE 

835# 

1257 



soctal 

1# 

3945 



SPOWER 

1# 

3986 



SR AND 

1# 




SRAND4 

1# 




SRCVDA 

835# 

2795 



SRCVE 

835# 

1006 



SREAD 

1# 

3916 



SREGBC 

835# 

859 

880 

901 

SREGST 

835# 

1100 

3347 


SRESET 

835# 

3518 



SRINT 

835# 

2906 



SRONLY 

835# 




SRUOR 

835# 
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4224 


3908 4002 
3928 4010 
3882 3988 


1612 1693 1772 1851 1930 


922 943 964 985 



2011 2090 2169 2248 2329 2408 


ZZ-CZDJA-F-Q DJ1 1 LOG 

CZDJAF . 

PI 1 26-FE8-7 

SSCOPE 

1# 

3791 

SSE TUP 

1# 


tSRA" 

1* 


tSUDOC 

1# 

44 7 

tSURDF 

1# 

602 

SSWRRR 

10 

4206 

STRAP 

10 

STYPE 

10 

4035 

SURAT 

10 


SXRDY 

835# 

1206 

SXRDY C 

835# 

2723 

SXRDYO 

835# 

1167 

SXUOfi 

835# 

3264 

.SCOP 

1# 


.SCOPE 

1# 


. ABS. 

Qi 7706 

000 

ERRORS 

DETECTED: 

0 


TESTS MACYll 


E 8 
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SEU 0095 


CZDJAE .8IN.CZDJAF .SEQ/CRF/SOl/NL : TOC-CZDJAF .MAC .CZDjA* .P1 1 
RUN-TIME: IT 16 .9 SECONDS 
RUN-TJME RATIO: 159/29-5.4 
CORE USED: 32* T63 PAGES) 


